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Preface 


Thousands of home computers are collecting dust because their owners 
don't have the tools to make them work properly. All home appliances 
require tools to keep them humming along and your Commodore 64 is no 
exception. In this book, you will find all the tools you need to make your 
microcomputer perform the way it should. 

This book grew out of a need we noted after buying our first computer. 
Most manuals and books approach BASIC programming by teaching state¬ 
ments, commands, and program data structures. This approach can be suc¬ 
cessful, but the average person is not motivated to learning program 
construction this way. After spending many frustrating evenings with User's 
Manuals and BASIC programming books, we still could not write the simple 
programs we had in mind when we bought the computers. But, finally, we 
discovered a way to learn programming that really works. By looking at pro¬ 
grams in terms of their working parts—their subroutines—we were able to 
understand how to write simple programs. Soon we were designing our own 
games and quizzes. With the help of this book, you can too. 

The "tools" in this Tool Kit book are brief 5- to 15-line subroutines. Color, 
sound and music, graphics, animation, and computational subroutines are 
the "tools" and, when combined, form the basis for a variety of educational 
programs and computer games. Each line of each subroutine is carefully 
described and explained. We will tell you what each subroutine will do, how 
it can be changed, what the variables control, and give hints for further exper¬ 
imentation. This approach makes programming easier, less frustrating, and a 
lot more fun. The modular form of programming is a sound method of struc¬ 
tured programming that works well for the average microcomputer owner. 


This book can also help parents teach their children to program. Both of 
us have small children and the techniques used in this book have helped our 
children become computer literate. Building programs out of subroutines will 
give you, the user, quicker and more satisfying results than traditional 
approaches. Since the subroutines are mostly educational and recreational, 
they will appeal to both parents and children. 

In the Tool Kit series of books, we are happy to share a valuable approach 
to building simple programs with the beginning computer user. Now, let's get 
to it and have some fun. 

Ted Buchholz 
and Dave Dusthimer 


This book is dedicated to Weldon. 
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Computers are the result of genius-level engineering. Fortunately for us 
"normal" people, you need not be a genius to use the Commodore 64. Since 
the "64" can't think like humans, we must learn to think as it does. It isn't 
hard once you understand how the Commodore 64 works. 


WHAT MAKES THE COMMODORE 64 WORK? 


At the core of every computer is its CPU, or Central Processing Unit, which 
controls, interprets, and executes the computer functions. The 64's CPU is a 
6510 microprocessor. This microprocessor "chip" is very tiny, but it stores a 
great deal of information and is very powerful. 

Computers can only receive information through their CPU in a binary 
system. That is, computers only know two things — whether data is "on" or 
"off," "0" or "1," ora "yes" or "no." Each of the digits readable by the com¬ 
puter (0 and 1) is known as a bit. The Commodore 64 is an 8-bit machine, 
partially because each of its characters is composed of 8 bits. 

Look at the following bit-pattern illustration for the character "A." 




Bit Pattern 

Bits 

Image 

(Binary Code) 

1 

* * 

00011000 

2 

* * 

00100100 

3 

* * 

01000010 

4 

****** 

01111110 

5 

* * 

01000010 

6 

* * 

01000010 

7 

* * 

01000010 

8 


00000000 


We usually consider those bits that are put together to form a character or 
group as a byte. Knowing the number of bytes available in the microcom¬ 
puter is another way of knowing how much memory or space is available for 
use. 


HOW MUCH MEMORY DOES THE COMMODORE 64 HAVE? 

There are two types of memory in the Commodore 64 — read-only mem¬ 
ory (ROM) and random-access memory (RAM). The ROM in the Commodore 
64 hardware is programmed by the manufacturer. The CPU controls com¬ 
puter operations by addressing programs located in ROM (read-only mem- 
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ory). The ROM is permanent in the computer and we, as users, cannot use the 
ROM for storage. The RAM (random-access memory) is a temporary storage 
memory that serves as space for the user's programs. The unexpanded Com¬ 
modore 64 (the standard Commodore 64 without additional memory) has 
38.9 kilobytes of memory storage available. When you turn the Commodore 
64 on, it will proudly display: 

* * * *! :uMMuDijPC 64 E61 ij i.J^ * * * * 

64K RAM SYSTEM 38911 BASIC BYTES FREE 

There is a way to find out just how much memory is left after you start 
programming; we'll discuss that in the next chapter. The longer your pro¬ 
grams, the more memory or RAM you will need. Unless you save (on a tape or 
diskette) the data in RAM, the data disappears when the computer is turned 
off. 

THE BINARY SYSTEM 

If the computer can only understand "0" and "1" in the binary system, 
how can you communicate with it? 

Fortunately, there is an operating system that interprets the binary 
machine code into something that is more easily understood by humans. The 
operating system for the Commodore 64 is a BASIC Interpreter, which allows 
us to communicate with the computer using BASIC as the programming lan¬ 
guage. We input data principally using the keyboard, but we can also use joy¬ 
sticks and similar devices. Data are inputted using BASIC as a language so the 
machine can understand it. 

HOW DO YOU WRITE PROGRAMS IN BASIC? 

Programs are written with commands, statements, and a structure that is 
governed by rules which are not so different from the grammar and syntax 
rules in English. We're lucky because BASIC is easier to learn than a foreign 
language. We will introduce you to the major commands and statements in 
the next chapter. 

WHAT ACCESSORIES ARE NEEDED TO GET THE MOST OUT OF THE 
COMMODORE 64? 

You can do a lot with just the Commodore 64 and a screen (either a televi¬ 
sion set or a monitor). However, when you write programs of some length, 
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you will want to save yourself from having to reenter the program every time 
you want to use it. You can use the Commodore cassette unit to save pro¬ 
grams and files on tape or you can purchase the Commodore disk drive to 
save programs and files on floppy disks. The disk drive turns your Commo¬ 
dore 64 into a much more powerful machine because the drive can manage a 
lot of information without tapping the RAM available in the Commodore 64. 

You can print your programs or results out on paper using a printer to pro¬ 
duce this "hard copy." There are many other accessories available at com¬ 
puter stores and through mail-order houses that will tailor the Commodore 
64 to your personal needs. 

WHAT IS THE BEST WAY TO START LEARNING HOW TO USE THE 
COMMODORE 64? 

Familiarize yourself with the chief input device for the Commodore 64 — 
the keyboard. Using the guide that came with the computer, you can learn 
how to input characters and use the other functioning keys. Let's review this 
briefly so that you can refer to this section and use it as a reference for the rest 
of the book. You cannot hurt the computer or destroy the ROM by playing 
around on the keyboard. 



Fig. 1-1. The Commodore 64 keyboard. 


USING THE COMMODORE GRAPHICS CHARACTERS 

All the letter keys and some of the symbol keys have graphics characters 
shown on their front (Fig. 1-2). In order to type the left graphics character, you 
must press that key and the Q (Commodore) key at the same time. For the 



SHIFT 
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Fig. 1-2. Selecting a graphics character. 


USING THE COLOR KEYS AND THE REVERSE FUNCTION 


Use the mjg (Control) key together with the number keys to change the 
color of the cursor and what you are inputting. The control key is also used to 
activate the sitfKfiw and keys. By using the reverse mode, you can 

print the character in the screen color and the background in the cursor 
color. Using reverse and then changing the colors will make a colorful screen 
display. Use the space bar while the reverse mode is on to get solid color lines. 


EDITING ON THE COMMODORE 64 


The Commodore 64 is much easier to use than a regular typewriter 
because of the features built into the keyboard. The cursor keys can be used 
to edit any line or character on the screen, whether listed with or without a 
line number (Fig. 1-3). 


PRESS 

PRESS 

PRESS 

PRESS 



SHIFT 


or 0 + ^91 

or 0 + K223 


Fig. 1-3. Using the cursor keys. 


-the cursor moves down 
-the cursor moves up 
-the cursor moves to the right 
-the cursor moves to the left 


All of these cursor movements will repeat when the keys are held down 
continuously. After you edit with the cursor, pressing umyjm will enter the 
changes you have made. Note that if you press |>mig| and liHUMM. this will 
not make the change you edited. Be cautious when editing on the last screen 
line as you can stop the program cold. The computer jams and you have to 
turn the Commodore 64 OFF and then ON to resume operation. 

The easiest way to edit is with the Q2SS32 key. Pressing this key (without 
using the shift key) simply deletes the character to the left of the cursor. Some¬ 
times we think we use this "delete" key more than any other! Pressing this key 
together with the shift key will allow you to insert additional characters or 
spaces anywhere in the text. 
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The |g|522iiiS2iuli3 key ' s very useful for editing. When you want to erase 
everything on the screen, press Qj||g| (or the Commodore key) and the 
Q key. That will rid the screen of all characters and will place the cur¬ 
sor in the top left-hand corner of the screen (home). If you simply want the 
cursor to "home,” use the key unshifted. 

When you need to stop a program, press the key. The com¬ 

puter will then show something like: 

BREAK IN LINE 190 

, telling you where the break occurred in the program when was 

pressed. 

By pressing QQQ] and Y ou have another way of expressing a 

LOAD command when using a cassette player. It is also faster and easier than 
typing the command in on the keyboard. 

When you press and |i|£USii]^ at the same time, the computer 

resets to its original colors and the word "READY” appears. Any programs 
you have entered are still in memory even though the computer looks like 
you have just turned it on. 

You will erase all programs in memory and start afresh, however, when 
you type in "NEW” and press umyjm. This doesn't clear the screen, but it 
does forget everything. 

USING THE COMMODORE DIRECT MODE 


The Commodore 64 is much more than a calculator, but you can use it 
just like one to solve any problem you wish. You don't need to number the 
lines like you do in a program. Try it. Type in: 

PR I NT 172 * 4,-5 (and press i;iad«i:»i) 

PR I NT 6LJ * k 3 - 1 ■' (and press i;<a»n;»n 

You can even have a short program (without line numbers) run in the mid¬ 
dle of a regular program that has line numbers. As long as you don't exceed 
80 characters with the program (2 screen lines, 40 characters to a line), the 
short program will be executed as soon as you press This is helpful 

when you want to try out a short color or sound routine without disturbing 
the memory of the program you are working on. For example: 



UU1 b'E AN 
8 : POKE 5' 



—NOTE: There is no line number. 


When you type in the POKE command, and hit Q§2S3ZI, the screen turns 
white and the border becomes black. When you key in the second line in the 
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program — GOTO 10 — and then type RUN, the computer prints lots of lines 
that say LOUISE AND CHRIS. 

We hope that knowing something about how the Commodore 64 works 
as well as knowing how to use the keyboard is good preparation for our next 
chapter where you gain familiarity with The Building Blocks of Commodore 
BASIC. 











The Building Blocks of 2 
Commodore BASIC 


IT 
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Once you learn how the Commodore 64 works and how to speak its lan¬ 
guage, learning to program is easy. In Chapter 1, we explained what the Com¬ 
modore 64 can do, and now we are going to teach you to speak 
COMMODORE BASIC. Remember that the Commodore 64 is a "dumb” 
machine. It can't do anything unless you, the user, command it to perform. 
Before you get carried away with feelings of great power, however, you must 
also remember that the computer can't speak English, so you must give your 
commands in a language that the computer understands. 


COMMODORE BASIC 

Your Commodore 64 speaks BASIC. You can equip your computer to 
speak other languages, but this book deals only with standard COMMO¬ 
DORE BASIC. 

Your machine has a very limited vocabulary. The Commodore 64 only 
understands about 70 commands, statements, and functions. In the next few 
pages, we will explain each command and statement and give you an idea of 
how it works. You will refer to this part of the book often, so you may want to 
put some notes in the margin. Let's learn how to talk to the computer. 


COMMANDS AND STATEMENTS 

The following are fairly standard BASIC commands and statements. They 
can be used with most computers that understand BASIC. For convenience, 
we have alphabetized this listing. 

CLR — This erases any variables stored in memory and sets them to zero, 
but it does not erase the program itself. 

CLOSE — This statement simply closes a file that you opened earlier with 
an OPEN statement. You can close specific files by using a file number 
following the word CLOSE. 

CMD — This is used to display output that usually appears on the screen 
to a file or a device like a printer. This device has to be OPENed and 
CLOSEd just like a file. 

CONT — For CONTINUE. If you stop a program with a STOP or END 
statement or the STOP key, you can use CONT to restart the program 
where you stopped it. 
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DATA — This command allows you to store information in either string or 
number form. You must tell the computer to read the DATA with a READ 
command. Data can be stored in a program by simply typing DATA, 
INFO, INFO, INFO, and soon. 

DEF FN — This statement allows you the opportunity to define your own 
functions for the needs of a specific program. You must enclose the 
parameters in parentheses right after the DEF FN statement. 

DIM — DIM lets you set the maximum size of a given array. 

END — You guessed it. This statement stops or ends your program. You 
will most often use this statement to divide subroutines at the end of a 
program. 

FOR/TO/STEP — Loops are easily created using this statement. A NEXT 
statement must always be used with FOR/TO/STEP or you will receive an 
error message. FOR and TO are used to state a variable. For example: 

5 FORA = 1 TO 5 


A STEP command can be used if you want the computer to "step” or 
cycle in increments greater than 1. If you want the computer to move in 
steps of 1, you can just leave the STEP portion of the command out. By 
using STEP and a negative number, you can also create a negative step. 
However, you must include a NEXT statement so that the computer will 
go back and act on the next variable in the FOR/TO/STEP command. For 
example: 


E UR Y = 15 I 0 u aTEP -1 
70 POKE 53281, Y 
a O N E 31 Y 


GET — This is similar to the INPUT statement because data are taken 
from the keyboard. GET takes the key that is pressed as the value in the 
variable following the GET statement. We'll see this used later in the 
book. 

GOSUB — This is one of a couple of branching statements. You must use 
a RETURN statement to tell the computer to return to the main body of 
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the program. The RETURN statement will send the computer to the line 
right after the COSUB statement. For example: 

40 GOSUB300 

3 0 0 P 0 K E 5 32 8 0 ? 8 

310 FOR T = 1 TO 1000 : NEXT 

320 POKE 53280 6 

330 RETURN 

GOTO — This is another branching statement. Following the GOTO 
statement and a space, you must input the line number that you want the 
computer to read next. Once you use a GOTO statement, a continuous 
loop is made. To break the loop, another GOTO statement can be used to 
send the computer to another line in the program. 

IF THEN — This is another very useful statement. The condition 
described after IF must be true in order for the Commodore 64 to perform 
the statement following THEN. For example, let's consider this program 
line: 

3 8 IF X >50, T FI E H 2 0 0 

If X is greater than 50, then the Commodore 64 will GOTO program line 
200. If X is less than or equal to 50, then the next line of the program is 
executed. 

INPUT — This statement halts the program and allows you to input a 
string or character using the keyboard. This statement may be followed 
by a prompt in quotation marks. Following the last quotation mark, you 
must type in a semicolon and the name of the variable. For example: 

i 0 0 IN P U T 11 PIC K h N Y N U M B E R 11 • X 
380 INPUT X 

LET — LET allows you to define variables in a program. You don't have to 
use the LET statement with the Commodore 64. It interprets LET A = 1 
and A = 1 the same way. 

LIST — This command tells the computer to list the program statements 
in order. It can only be used in the immediate mode. You may also list 
specific lines of the program by entering the line number after the com¬ 
mand. By typing a minus sign in front of the number, the computer will 
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list all lines up to and including the number. Let's look at how the LIST 
function works. 


LIST 

LIST 400 
LIST -400 
LIST 400- 
LIST 200-400 


— This lists the entire program. 

— Only line 400 will appear. 

— All lines up to and including 400 will be listed. 

— All lines including and after 400 will be listed. 

— Lines 200 through 400 will be listed. 


LOAD — This command tells the Commodore 64 to load a stored pro¬ 
gram from tape or disk. You can use the program name (in quotes) or a 
string variable to identify the program you want loaded. 

NEW — This command clears any program in memory. It acts just like an 
eraser. Be sure to save and store any programs you want to keep before 
entering NEW. 

NEXT — This statement is used with a FOR/TO statement. The NEXT 
statement tells the computer to evaluate the next value in the FOR/TO 
statement. As long as the value does not exceed the limits of the FOR/TO 
statement, the computer will act on the value. The NEXT statement con¬ 
trols the loop. Ifthe values are within limits, the loop will continue. Once 
the values exceed the limits set in the FOR/TO statement, the NEXT state¬ 
ment will tell the computer to leave the loop and continue with the next 
line of the program. 

ON GOSUB —This is still another branching statement. If a certain con¬ 
dition exists, the computer will go to the subroutine listed after COSUB. 

5 INPUT X 

10 0N XGU3UB 35, 100,200 

When value X is inputted, the computer will GOSUB line 35, 100, and 
200. You must use a RETURN statement just like you do with GOSUB. 

ON GOTO — This statement works just like the ON GOSUB statement 
except that you don't have to use the RETURN statement. 

OPEN — OPEN tells a BASIC program to use files stored on memory-stor¬ 
age devices. OPEN provides a necessary link between the storage device 
and a file number in the program. 
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POKE — This command allows you to input a value into the memory of 
the Commodore 64. POKEing is mostly used for color, sound, and graph¬ 
ics. For example: 

18 POKE 53288, 4 POKEs a color variable (purple) into mem¬ 
ory location 53280 (the border color 
address). 

28 POKE 54296, 15 POKEs a volume (loudness) variable into 

memory location 54296. 

PRINT — When you want to display information on the screen, the 
PRINT statement will do it. Words to be printed must appear in quota¬ 
tion marks. When words, numbers, or strings follow the PRINT statement 
with the variable's name, you don't need to use quotation marks. For 
example: 

18 PRINT"HALLOWEEN" 

28 PR I NT X* 

READ — This statement tells the computer to read information from 
DATA statements, in order, from left to right. You must use READ and 
DATA statements together. 

REM — For Remark. The computer does nothing with this statement. It is 
a notekeeping device for you. REM statements are given line numbers 
and identify parts of the program for user reference. For example: 

4 0 0 R E H * * * S C 0 RIM G S U B R 0 U TINE 

RESTORE —This statement tells the computer to go back to the beginning 
of a DATA statement and read the files again. 

RETURN — This statement tells the computer to go back and read the line 
immediately following a GOSUB command. Each subroutine must end 
with a RETURN statement. 

RUN— This is the computer's ignition key. When you command the com¬ 
puter to RUN, it will begin at the first line of the program and will carry out 
each program line in sequence, unless you designate a line number where 
you want the program to start. For example: 

RUN 190 


will start the program at line 190. 
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SAVE — The SAVE command allows you to take a program from the com¬ 
puter's memory and store it on either a cassette tape or a floppy disk. If you 
are using a cassette recorder for memory storage, simply enter SAVE and 
you will get a series of prompts that will lead you through the saving pro¬ 
cess. You can give the program a name, with a name in quotes or with a 
string variable name, to make location and retrieval easier. You simply 
SAVE using: 

A U t- ’ ’ H K L- H ij fc_ o! ‘1A o H 


or 


STOP — This statement stops the program and tells you in what line num¬ 
ber the break has been made. Use CONT to restart the program. 

VERIFY — This checks the program you have just SAVEd with the one in 
the computer's memory. 


FUNCTIONS 

There are two types of BASIC functions — Numeric and String. The argu¬ 
ments of built-in functions are always enclosed in parentheses (). A String 
function can be identified by having a dollar sign ($) as the last character of 
the keyword. 

ABS(X) — This function tells the computer to give you the absolute value 
of an expression. An expression is sometimes referred to as the argument. 
The ABS command will always give you a positive number even if the 
argument is negative. This command can be used to find out the absolute 
value of any complicated series of mathematical computations. For 
example, input: 

ABS < 47 > —The absolute value is 47, but we 

know that. 


Now try 

ABS 14* (. Z 1 *6.1-20 —Now do you see why this com¬ 

mand is useful? 
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ASC(X$) — Each character on the Commodore 64 has an ASCII code 
number. The ASC function will give you the code number for a string vari¬ 
able or any group of numbers that appear in parentheses. Here's how it 
works. 



Type RUN and the number 68 will appear on the screen; this is the ASCII 
code for the letter D. 

ATN(X) — This function is mathematical and we won't use it in this book. 
This function will give you the arc tangent of any number that appears in 
parentheses after the ATN command. 

CHR$(X) — This function is the exact opposite of the ASC function. The 
CHR$ function will change an ASCII code number into the appropriate 
character. 

5 =CHR$ 

10 PR I NT h$ 

Type RUN and this will print the letter D. 

COS(X) — This function will compute the cosine of any number that you 
put into parentheses following the function. For example, enter: 

print cosae> 

and the Commodore 64 will give you -.839071529 

EXP(X) — This returns the exponential function or the opposite of the 
LOG function. This function raises the number 2.718281828 to the power 
that you input in parentheses. 

PR I NT ENP c! 18 > —This will raise 2.718281828 to the tenth power. 

FRE(X) — This tells you the number of unused (free) bytes available in 
memory. 


INT(X) — This function is used when you want a whole number as an 
output rather than a fraction or a decimal. The INT function returns the 
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largest number possible that does not exceed the number in parentheses 
(ARGUMENT). For negative numbers, the next integer value will be 
returned. Try this: 

■o A = IH r \ 9 9 . y y 7 
10 PRINT A 

The Commodore will print 99. Try the same program, only let A = 
INT (-99.887) 

LEFT$(X$,X) — This function will give you the leftmost X characters in 
X$. 

LEN(X$) — This function will return the number of characters, including 
spaces in a string. Try this: 

5 Hf "THE COMMODORE 64 IS A NEAT MACHINE" 

20 PRINT LEN<A$> 

Type RUN and the Commodore 64 will print 34. Note that all the spaces 
count as a character. 

LOG(X) — This function will give you the natural logarithm of a number. 
To determine the log of a number, simply input: 

PR I NT LOG (any number) 

MID$($,S,X) — This function will give you a part of a string. You can con¬ 
trol the part of the string returned. 

5 A$ = "MISSISSIPPI" 

1 0 F'R I NT MIM ( A$ ? 8 > 4 > —The 8 tells the Commodore 64 to 

count 8 places. Then, the 4 tells the 
computer to print the next 4 places 
from the beginning point. 


Type RUN and you get IPPI. 

PEEK(X) — You can PEEK into a memory location in order to learn its 
contents. 

POS(X) — This function will compare two strings and tell you at what 
point a letter in one string begins occurring in another. 
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RIGHT$(X$, @) — This function will give you the rightmost X characters 
in X$. 

RND(X) — The random function tells the Commodore 64 to generate a 
random number between Oand 1. 

SGN(X) — This function will return the algebraic sign of the argument. 
This function will tell you if the number is positive, negative, or zero. This 
function is useful in programs that require some complicated mathemat¬ 
ics. 

SIN(X) — SIN represents the trigonometric sine function of X. 

SPC(X) — Used only with PRINT, this moves text forward by X spaces of 
output. 

SQR(X) — This handy function will give you the square root of any num¬ 
ber you choose. Use the following program to extract the square root. 

PRINT SQR (any number) 

STR$(X) — STR$ is the opposite of the VAL function. STR$ changes a 
specified number (the argument) into a string. 

TAB(X) — This function works just like the TAB key on a typewriter. With 
the PRINT statement, the TAB function tells the computer to begin print¬ 
ing a given number of places from the left side of the page. It looks like 
this: 

PR I NT TAB < 20) "YOUR NAME" — The argument can beany 

number from 1 to 255. 

TAN(X) — The TAN function will give you the tangent of the argument. 

VAL(X$) — This function will give you the numeric value for a string. This 
function ignores letters in a string and assigns the numeric values of num¬ 
ber characters only. 

INPUTTING PROCEDURES AND HINTS 

If you have read your User's Manual, you already know that entering data 
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is just like typing except that it is easier to make corrections on the Commo¬ 
dore 64. You should read your User's Manual if you haven't already done so. 
Here are some simple inputting rules and suggestions. 

1. Always number your program lines. We suggest numbering in incre¬ 
ments of 10. This gives you space if you need to alter, change, or 
renumber a program. 

2. Get in the habit of using REM or Remark statements to make notes to 
yourself. 

3. Be aware of punctuation marks. If you fail to use them properly, the 
programs won't run. 

4. Use the LIST command. As your programs get longer, you will need to 
know howto list certain segments of the program. An example of how 
to list portions of a program appeared earlier in this chapter under the 
LIST command description. 


VARIABLES 

Basically, a variable is something that we assign a value to. We have 
assigned values to the variables in most of the programs in this book, and you 
need to understand the concept. 

If you say that X = 1, we are defining a variable, X. If we put X = 1 in a 
program, the computer will interpret X as 1 every time it reads X. Variables are 
used to perform mathematical operations. Our X = 1 is a numeric variable. 
We could use this variable in the following way: 

10 LET = 1.5 
20 LET Y = 10*Y 
30 PRINT X 
40 PR INTY 

We have stated two variables, X and Y, in terms of each other; 10 X's and 1 Y. 

Integer variables are similar to real numeric variables except that they can 
only be expressed as integers (whole numbers). They are expressed by using 
the percent (%) sign after the name of the integer variable. 

X% = 5 
AZ% = 77 


We can also state a variable in terms of a string. This type of variable is 
called, oddly enough, a string variable. If we want to represent a word with 
the letter X, we tell the computer to expect a string by adding a $. Let's say we 
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are designing a States and Capitals game and we want a message to indicate 
an incorrect answer. We can say: 

1.0 LET N* =." WRONG" 

£0 print:-:* 

We are telling the computer that X$ means the same thing as the word 
WRONG. The Commodore 64 really only reads the first two letters of a string 
variable. The names can be any length but you distinguish one string variable 
from another with the first two letters of the name. 

As we begin working with programs in Chapter 3, you will see how valu¬ 
able variables can be. They can state the value of nearly anything. As we iden¬ 
tify the variables for you later in the book, remember that there are three 
types: Numeric, Integer, and String. 

Now that we understand how the computer works and we have an intro¬ 
duction to BASIC language commands, statements, and functions, let's begin 
doing some real programming. 



V- 
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How lucky you are to be using the colorful Commodore 64. With color 
alone, you can dazzle yourself and friends with the "show” programs you 
will learn in this chapter. 


KEYBOARD COLORING 


Using color is easy on the Commodore 64. If your tv set or color monitor 
is adjusted properly, the flashing cursor that appears on the screen is light 
blue. Anything that you type in will be blue. Try it. 

There are sixteen colors that you can choose from the keyboard. Let's 
change the cursor color from blue to red. At the same time, press the [mg 
and liiajj keys. Nowthecursorand anything you type is red. Next, change the 
cursor to green. 

At the top of the 64 keyboard are eight color keys, as shown in Fig. 3-1. Try 
them all out to see how they look. 



Fig. 3-1. The Commodore 64 color keys. 

In order to see the other eight colors that are available on the keyboard, 
try this (using the Commodore key): 


BD = 

ORANGE 

□ 0 - 

BROWN 

□ 0 = 

LIGHT RED 

HQ = 

DARK GRAY 

H 0 = 

MEDIUM GRAY 

H B = 

LIGHT GREEN 

HH = 

LIGHT BLUE 

H ED = 

LIGHT GRAY 


NOTE: Blue on a blue background will look invisible, of course. Hiding a 
character by changing its color to the same color as the background can be 
useful to us as we develop programs later in the book. 

Now, let's turn the cursor into a paint brush and have some fun. The easi¬ 
est way to make a brush is by using the Reverse/On key. Press imi9 and 


CTRL 
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RVS/ON 


_ This makes any key “reversed” — that is, the letter or character has 

the same color as the background color, while the character background 
color is the same as the cursor. For example: 


Normal mode: K (a light blue letter) 

Reverse mode on: □ (a light blue background) 


If you press the Space bar while in Reverse mode, a solid block will 
appear and you can make a solid line using these Space bar blocks. Try the 
following. Press |*mg and uygmm. Next, press the iwi;ii and i:ian keys. Now 
when you press the Space bar, a solid red line appears. Make lines using all 
sixteen colors. Can you makea design on the screen with the blocks and lines 
using different colors? To turn the Reverse mode off, key in mi;h and 


RVS/OFF 



Fig. 3-2. Painting the screen. 


SCREENS AND BORDERS 

When you turn the Commodore 64 on, there is a light blue border and a 
blue screen. This is a pleasing combination, but you have sixteen different 
colors with which to color the screen and border. 

Hovy do you do this? By addressing or POKEing a specific memory loca¬ 
tion in the computer. It's easy to do. Type in: 

POKE 53280,O : POKE 53231, 1 
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Now you have a black border and a white screen. 53280 is the location in 
memory where the border color values are stored; 53281 is for the screen 
color values. 0 is the color value for black and 1 is the value for white. 

Try the following simple program to see the range of combinations that 
the Commodore 64 can make. 

10 FQRC-0TO15 
20 FOED=0TO15 
30 PGKE53280JC 
35 PUKE53281, D 
40 FORT=1TO100 : NEXT 
50 NEXTD : HEXTC 

— Lines 10 and 20 set the C and D variables from values 0 to 15. 

— Line 30 POKEs the screen border with C as a value. 

— Line 35 POKEs the screen background with D as a value. 

— Line 40 holds that particular screen and border combination for a count 
of 1 to 500. 

— Line 50 completes the FOR . . . NEXT loop by telling the computer to 
change the values for D and, then, C. The program POKEs the first value 
for the screen border and runs through all 15 screen background col¬ 
ors; then, the border changes to the next value. 

For reference, the following list shows you the values you can POKE into 
locations 53280 and 53281 to obtain the desired screen and border combina¬ 
tions. 


COLOR VALUES 


BLACK 

-0 

ORANGE 

- 8 

WHITE 

- 1 

BROWN 

- 9 

RED 

- 2 

LIGHT RED 

- 10 

CYAN 

-3 

DARK GRAY 

- 11 

PURPLE 

— 4 

MEDIUM GRAY 

- 12 

GREEN 

- 5 

LIGHT GREEN 

— 13 

BLUE 

-6 

LIGHT BLUE 

- 14 

YELLOW 

- 7 

LIGHT GRAY 

- 15 


Let's write a colorful “reward" program. We will use a program like this 
later in the book to reward you for being successful in a game program. 


10 PRINT"FT 
20 FOR R=0TO15 
30 P0KE53281,0. P0KE532SB ■■ A 
40 FOR T=1TO100NEXT T 
50 NEXT R 
60 F0RE=uTU15 

70 P0KE53281,1■POKE53230,E 
80 FOR T=1 TO 100 : NEXT 
90 NEXT E 
100 OuT 0 iu 


i 
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— Line 10 clears the screen. Inside the quotes you key in 


CLR/HOME 


SHIFT 


and 


— Line 20 sets the values of A from 0 to 15. 

— Line 30 POKEs the screen background to black and POKEs the border 
with a value of A. 

— Line 40 delays the changes with a timer. 

— Line 50 changes to the next A value. 

— Lines 60-90 are similar to lines 10-50 except that a white screen back¬ 
ground is used. 

— Line 100 tells the computer to return to line 10 to begin the program 
again. 


NOTE: In order to stop this program, you push the STOP key since the pro¬ 
gram has no END or STOP within itself. 



COLOR IN PRINT STATEMENTS 

When we use the PRINT statement, directions and messages are included 
in between the quotation marks following PRINT. Remember that when you 
type: 

PRINT"GOOD HORNING" 

the computer responds with 

GOOD HORN ING (The message inside the quotation marks.) 


When we give PRINT statements directions for color or other functions, 
special symbols appear inside the quotation marks. Try this out; key in: 
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pr i ht " Pnai ma computer 11 

actually shows on the computer as: 

PRINT "g| COMPUTER" 

and prints the word COMPUTER in black letters as soon as the key is 

pressed. 

Inside PRINT statement quotation marks, the colors will appear as fol¬ 
lows: 


COLOR 

KEY IN 

SYMBOL 

BLACK 


□ 

WHITE 


m 

RED 


m 

CYAN 

| 

a 

PURPLE 



GREEN 


m 

BLUE 


0 

YELLOW 


e 

ORANGE 

□ D 


BROWN 

□ 0 

□ 

LIGHT RED 

□ 0 


DARK GRAY 

□ □ 

□ 

MEDIUM GRAY 

□ 0 


LIGHT GREEN 

□ 0 

□ 

LIGHT BLUE 

□ D 

a 

LIGHT GRAY 

□ ED 

a 


Note also that inside the PRINT statement, the Reverse On and Reverse Off 
keys (EH22I, ■ ;«WMaa) produce special characters. Let's use our knowledge 
of color to print a completely colorful statement. 

10 PR I NT "T 1 
20 PR I NT 11 ■ a 
30 PRINT"aa 
40 pRiNT'^aa 
50 PRINT n kS 
60 PRINT"as 
70 PRINT ,r fiia 
80 PRINT"!*) 

90 PRINT"Ka 

100 pr i nt M aa 

110 PR I NT "113 
120 PR I NT" 

Try to figure out what colors we have used. There is a character key in the 
appendices that may help you. As you use color more in PRINT statements, 
these symbols will become much more familiar to you. Now make up your 
own special messages. 





COLOR SUBROUTINES 


Now that we have covered the basics of coloring the screen and the bor¬ 
der as well as using color in programs, let's look at some interesting programs 
and routines that we can use alone or as parts of other programs. 



COLOR CHOICE 


Choose your favorite colors and the Commodore 64 will display them for 
you. 


10 PRIMT'-n” 

20 PR I NT "DO YOU LIKE BLACK, WHITE, RED, CYAN, PURPLE, GREEN, OR YELLOW THE BEST?" 
30 A 1$= 11 BLACK 11 ^^"WHITE" 

40 fl2$= 11 WHITE" 

50 A3T="REB" 

60 fl4J= l, CYRH" 

70 fl5$-"PURPLE M 
SO A6$="GP.EEN 11 
30 A7*= ,l BLUE" 

100 A8$="YELL0W" 

110 PRINT"WHAT IS YOUR FAVORITE COLOR?" 

115 GOTO120 

116 PRINT"PICK ANOTHER COLOR, PLEASE" 

120 INPUT B* 

130 PR I NT "IT 1 

140 IFBf=hl^ THEN GOSUE 400 

150 IFB*=A2$ THEN GOSUE 500 

160 IFB$=fl3$ THEN GOSUE 600 

170 IFE$=A4f- THEN GOSUE 70U 

180 IFB$=A5$ THEN GOSUE S0O 

ISO IFB$=A6$ THEN GOSUE SCO 
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200 

IFE$=ft7$ THEN G0SUE 

1008 

210 

IF£$=R8$ THEN G0SUB 

1100 

250 

GOTO 116 


400 

FOR X=0TO15 


410 

POKE532S1,0 F0KE532: 

98, X 

420 

FOR T=1TO 100:NEXT T 


420 

NEXT X 


490 

RETURN 


500 

FOR X=0TO15 


510 

P0KE53281,1 : POKES32; 

90, >•: 

520 

FOR T=1TO 100 NEXT T 


530 

NEXT X 


590 

RETURN 


600 

FOR X=0TO15 


610 

P0KE53281,2:POKE53280,X 

620 

FOR T=1TO100 ; NEXT T 


630 

NEXT X 


690 

RETURN 


?00 

F0RX=6T015 


710 

P0KE53281,3:P0KE532* 

30. X 

720 

FOR T=1T0100:NEXT T 


730 

NEXT X 


790 

RETURN 


800 

FOR X=0TO15 


810 

P0KE53281,4:POKE53280,X 

820 

FOR T=1TO100:NEXT T 


830 

NEXT X 


890 

RETURN 


900 

FORX=0TO15 


910 

P0KE53281,5:POKE53280, X 

920 

FOR T=1TO100:NEXT T 


930 

NEXT X 


990 

RETURN 



1000 FORX=0TO15 

1010 P0KE53281.6■POKE532S0>X 

1020 FOR T=1TO100:NEXT T 

1030 NEXT X 

1090 RETURN 

1100 FOR X=0TO15 

1110 PQKE53281,7 ■' POKE532S0, X 

1120 FOR T=1TO 100:NEXT T 

1130 NEXT X 

1190 RETURN 


— Line 10 clears the screen. 

— Lines 30-100 set A1 $ to A*$ as color string variables. 

— Line 110 asks for your favorite color. 

— Line 115 tells the program to skip to line 120 for the first color selection. 
— Line 116 is given after the first color choice is made. 

— Line 120 asks you to "input” your color choice. 

— Lines 140-210 determine which color you have chosen and moves the 
program to the appropriate subroutine. 

— Line 250 sends the program to line 116 to ask for another color selec¬ 
tion. 

The subroutines in lines 400 through 1190 POKE your color selection on the 
screen background and change the border colors to all 16 possible values (0 
to 15). The RETURN statement at the end of each subroutine returns to the 
program at the next program line after it was called. 

COLOR CHOICE is a program that uses simple IF . . .THEN logic as well 
as the INPUT statement. Now let's look at another colorful program. 
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10 PRINT"SELECT R COLOR CHOW IN ONE OF THE FOLLOWING COLORS:" 

20 PRINT 

30 PR I NT" P.PURPLE" 

■40 PR I NT "B.BLOCK" 

50 PR I NT "G.GREEN" 

60 PRINT"V.YELLOW" 

70 GETC$ : IFC$=""THEN70 
80 IFCf="P" THEN GQSUB200 
90 IFC$= ,, B" THEN GOSUB300 
100 IFC$="G" THEN GOSUB400 
110 IFC$="Y" THEN GOSUB 500 

120 IF C$0"P" ONE CfO"E" AND CfO"G" AND C$0"Y" THEN GOSUB600 

200 FORX=0TU15 

210 P0KE53281.. 4 : POKE53280 , X 

220 FQRT=1TG100:NEXT 

230 NEXTX 

240 GOTO10 

290 RETURN 

300 FGRX-0TO15 

310 P0KE53281 .■ 0 : POKE33280, X 

320 FOR T=1TO100:NEXT 

330 NEXT X 

340 GOTO10 

390 RETURN 

400 FORX=0TO15 

410 P0KE53231,5:POKE53230, X 

420 FOR T=1TO100 ; NEXT 

430 NEXT X 

440 GOTO10 

490 RETURN 

500 FORX=0T015 

510 POKE53281,7:POKE53280,X 

520 FOR T=1TO100 : NEXT 

530 NEXT X 

540 GOT010 

590 RETURN 

600 PR I NT" MSMIWWYOU DIB NOT HIT ONE OF THE COLOR KEYS! ! 11 
610 FOR T=1TO800 : NEXT 
620 GOTO10 
690 RETURN 


— Lines 10-60 give you instructions for SHOW OF COLOR. 

— Line 70 tells the program to GET a value for the string variable C$. If no 
value is keyed (" "), then the program waits patiently. 

— Lines 80-110 send the program to appropriate subroutines if R B, G, or 
Y is pressed. 

— Line 120 looks to see if a key other than R B, G, and Y is being pressed 
and (if that is the case) sends the program to the "wrong key" subrou¬ 
tine. 


Subroutines in lines 200 through 590 perform the color shows in the color 
that you have selected. The subroutine starting at line 600 tells you that a 
wrong key was hit and sends the program back to its beginning, after a short 
delay (1 to 800). 

NOTE: The GET statement is similar to the INPUT statement in that both 
ask the program user to key in data. With GET, there is no question mark (?) 
asking for input and the key does not have to be pressed as it does 


with INPUT. 
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RANDOM COLOR 

The last two programs, FAVORITE COLOR and SHOW OF COLOR, offer 
you a choice of color by controlling the program with IF . . .THEN, INPUT, 
and GET statements. Let's make a program that produces totally random 
screen and border combinations. 

10 PRINT"IT’ 

20 C=INT(RND(0>*15) 

30 D=INTCRND(0)*15) 

40 POKE53280,C 
50 P0KE53281,D 
60 FOR T=1TO100: NEXT T 
70 GOTO10 

— Line 10 clears the screen. 

— Lines 20 and 30 set the color value of the variables using the INT (inte¬ 
ger) and RND (random number generator) functions. 

A. RND(O) produces random numbers between 0 and 1, such as 
.012 and .469. 

B. The *15 multiplies the random number by 15 (the maximum 
value for color combinations). 

C. The INT function rounds off the random number times 15 to the 
nearest integer (or whole number). This gives the computer a 
value that can be POKEd into the memory locations for screen 
and border colors. 

— Line 40 POKEs the border with random color variable C. 

— Line 50 POKEs the screen background with random color variable D. 

— Line 60 delays the program for a count of 1 to 100. 

— Line 70 sends the program to the start. 



■j 
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We hope you have enjoyed learning to use color on the Commodore 64. 
The last three programs were designed to be fun as well as to introduce you to 
some BASIC programming and logic. 

In the next few chapters, we will cover sound, graphics, and animation. 
We will use color subroutines heavily in these chapters and throughout the 
rest of the book. Experiment and enjoy. 





Sound and Music 4 

Subroutines 
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Your Commodore 64 has a great voice. It has surprising musical capabili¬ 
ties with a range of a full eight octaves through three voices. You can learn to 
"play” the Commodore 64 with a minimum of practice. In this chapter, we 
will show you how to make beautiful music with your "64” and how to use 
sound subroutines to add some pizzazz to your future programs. Let's get 
started POKEing around with sound. 

POKEing SOUND 

You can play the three voices by using POKE statements. You access the 
sound-related memory locations by POKEing. For the rest of the steps in play¬ 
ing sound, let's consider only Voice 1 as the example. Later in this chapter, 
you will learn the POKE settings for Voices 2 and 3. 

First, you set the volume for sound. One memory location sets the vol¬ 
ume for the voices and noise; its location is 54296. There are 15 volume set¬ 
tings available, 0-15 (0 is off). 

The next two settings define how a note will be played. Attack/Decay val¬ 
ues tell the computer how fast the note should rise (attack) and then fall 
(decay) from its peak volume level. For Voice 1, the Attack/Decay POKE set¬ 
ting is 54277, with values from Oto 255. Sustain/Release settings tell how long 
to play the note (sustain) and the rate at which it should be slowed (released). 
For Voice 1, Sustain/Release POKE setting is 54278, with values of 0 to 255. 

To determine the values to use to POKE for the Attack/Decay and Sustain/ 
Release, look at Tables 4-1 and 4-2. These tables are adapted from the Com¬ 
modore 64 User's Guide. 


Table 4-1. ATTACK/DECAY Values 


Voice 1 
Setting 

High 

Attack 

Medium 

Attack 

Low 

Attack 

Lowest 

Attack 

High 

Decay 

Medium 

Decay 

Low 

Decay 

Lowest 

Decay 

54277 

128 

64 

32 

16 

8 

4 

2 

1 


To get an Attach/Decay setting, simply add an attack rate to a decay rate. 
For high attack and medium decay: 128 + 4 = 132; therefore, the entire set¬ 
ting would be POKE 54277,132. To get the highest attack rate possible, add all 
the attack values together (128 + 64 + 32 + 16 = 240). For the highest 
attack rate and medium decay, the setting should be POKE 54277,244. 

Sustain/Release settings are determined just like the Attack/Decay values. 
For a high sustain level and a high release level, POKE 54278,136. 

The fourth setting determines the note you want to play. For each note 
you play, you must POKE high and low frequencies for the note. If you want to 
POKE an "F" note for Voice 1, you might choose the following high and low 
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Table 4-2. SUSTAIN/RELEASE Values 


Voice 1 
Setting 

High 

Sustain 

Medium 

Sustain 

Low 

Sustain 

Lowest 

Sustain 

High 

Release 

Medium 

Release 

Low 

Release 

Lowest 

Release 

54278 

128 

64 

32 

16 

8 

4 

2 

1 


frequency settings. (Note: Frequency settings for various musical notes are 
listed in an appendix of your Commodore 64 User's Guide.) 

High frequency POKE 54273,45 

Low frequency POKE 54272,198 

The high and low frequencies may range from 0 to 255 depending upon the 
note or effect you want. 

The last sound setting you must select for Voice 1 is the waveform setting. 
There are four to choose from and each has its own starting and stop values. 
This is shown in Table 4-3. 


Table 4-3. Waveform Settings for Voice 1 


Waveform 

Start 

Stop 

Triangle 

POKE 54276,17 

POKE 54276,16 

Sawtooth 

POKE 54276,33 

POKE 54276,32 

Pulse 

POKE 54276,65 

POKE 54276,64 

Noise 

POKE 54276,129 

POKE 54276,128 


The different waveforms produce very different results. 


Triangle This waveform is relatively smooth and produces sounds like 
reed instruments. 

Sawtooth This waveform is more rough and produces brassy sounds 
like trumpets and other brass instruments. 

Pulse This waveform "pulses” on and off at a variable rate that you 

control. For Voice 1: 


High Pulse - POKE 54275,0-15 
Low Pulse - POKE 54274,0-255 

This waveform produces sounds most like a piano, an instru¬ 
ment with abrupt changes in notes. 

Noise This waveform is random and produces noises and sound. 
Input these lines: 
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10 P0KE54296.15 
20 P0KE54277/ 17 
25 P0KE54278,65 
30 P0KE54273, 34 
40 P0KE54272,75 
50 P0KE54276,17 



You have just played Middle C of the fifth octave. If you want the tone to 
stop, you can POKE directly into the computer; use POKE 54296,0 (turns the 
volume off) or push £U!lj| and then liisugjjg. Let's look at each program line; 


— Line 10 POKEs the volume at 15, the highest setting. 

— Line 20 POKEs a low attack value (16) and low decay setting (1), for 16 
+ 1 = 17. 

— Line 25 POKEs a medium high sustain setting (64) and a low release 
value(l), for 64 + 1 = 65. 

— Line 30 POKEs the high frequency for Middle C. 

— Line 40 POKEs the low frequency for Middle C. 

— Line 50 POKEs the triangle waveform. 

If you want Middle C to playfora specific period of time or duration, then 
let's lengthen the program. This is shown in the following program. 


10 P0KE54296,15 
20 P0KE54277,17 
25 P0KE54278; 65 
30 P0KE54273*34 
40 P0KE54272.75 
50 P0KE54276*17 
55 FOR T=1TO200 : NEXT 
60 P0KE54276/128 


— Line 55 holds the note for a count of 1 to 200. 

— Line 60 stops the waveform by POKEing in its stop value, 16. 
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SOUND VARIABLES 


Let's play with the preceding program to learn more about sound. 


Volume 

Note 

Tone 

Waveform 

Duration 


Change the value in line 10 to anything from 1 to 15. 

Change the values in lines 30 and 40 to play different notes. 
The values of high and low frequencies for all notes are in an 
appendix of your User's Guide. 

Change the Attack/Decay and Sustain/Release settings for dif¬ 
ferent results in lines 20 and 25. 

Try all four waveforms in line 50. Rememberto POKE high and 
low pulse settings when using the pulse waveform. 

Change the range of "T" in the FOR . . . NEXT statement in 
line 55 to a larger number for a longer duration, or smaller for 
a shorter duration. 


THE NOISE MAKER 

Waveform value 129 gives us some fun noises which we can use to 
enhance our programs and games. These sound effects are fun but you 
should create some of your own. Input and run this program: 


10 P0KE54296*15 
20 P0KE54277.9 
30 P0KE54273,129 
40 P0KE54273,2 
50 POKE54272/90 
60 GOSUB200 
70 P0KE54273j 2 
80 PDKE54272-36 
90 GOSUB200 
100 P0KE54273,2 
110 P0KE54272.24 
120 GOSUB200 
150 END 

200 P0KE54276,129 
210 F0RT=1TO1000:NEXT 
220 P0KE54276,128 
290 RETURN 


The program sounds like something is about to crash, but it doesn't. This 
program has a lot of lines for a simple sound effect even though we use a 
GOSUB to make it more efficient. Later in this chapter, we will show how 
other BASIC statements can make playing sounds more efficient. 


SOUND ENCYCLOPEDIA 


Let's look at the following short program. It lets you select the note, dura¬ 
tion, volume, and other variables you want to hear. 
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10 PRINT"3" 

20 INPUT"VOLUME: 1-15";V 
30 INPUT"ATTACK/DECRY: 0-255"; AD 
40 INPUT"SUSTRIN/RELEASE : 0-255";SR 
50 INPUT"DURATION : 1 TO ?";D 
60 INPUT"NOTE, HI FREQUENCY";HP 
70 INPUT“NOTE, LO FREQUENCY";LF 
80 INPUT"WRVEFORM : 17,33,65,129?";W 
90 IFW*65 THEN GOSUB200 
100 P0KE54296,V 
110 P0KE54277,RD:P0KE54278,SR 
120 P0KE54273,HF:P0KE54272,LF 
130 P0KE54276,M 
140 FOR T»1TOD : NEXT 
150 P0KE54276,W-1:P0KE54296,0 
160 GOTO10 

200 INPUT"HI PULSE RATE: 0-15";HP 
210 INPUT"LO PULSE RATE: 0-255"JLP 
220 P0KE54275,HP:P0KE54274,LP 
290 RETURN 


Using the INPUT statements in lines 20 through 80 lets you select your 
own variables. Note that we put a subroutine in the program which allows 
you to INPUT and POKE high and low pulse values if you choose the pulse 
waveform in line 80. 

Now you can control sound more completely! Defining each value as a 


variable: 

V 

_ 

Volume 

AD 

= 

Attack/Decay 

SR 

= 

Sustain/Release 

D 


Duration 

HF 

= 

High Frequency 

LF 

= 

Low Frequency 

W 

= 

Waveform 

HP 

= 

High Pulse 

LP 

— 

Low Pulse 


makes programming and playing with sound much easier. 

POKEing MORE THAN ONE VOICE 

Earlier in this chapter, we said that there are three voices that you can play 
on the Commodore 64. Up until now, we have used only Voice 1 in all exam¬ 
ples. Let's look at the settings (Table 4-4) for all three voices. 


Table 4-4. Sound Control Settings 


VOICE 

ATTACK 

DECAY 

SUSTAIN 

RELEASE 

HIGH 

FREQ 

LOW 

FREQ 

WAVE¬ 

FORM 

HIGH 

PULSE 

LOW 

PULSE 

1 

54277 

54278 

54273 

54272 

54276 

54275 

54274 

2 

54284 

54285 

54280 

54279 

54283 

54282 

54281 

3 

54291 

54292 

54287 

54286 

54290 

54289 

54288 
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We can play all three voices at the same time with POKE statements. This 
allows us the option to make musical chords rather than just single notes. Try 
the following program: 


10 P0KE54236,15 

20 P0KE54277 ,0 1 P0KE54278 > 240 

30 P0KE54273j 34 : PQKE54272,75 

50 P0KE54284j0 ; P0KE54285,240 

60 POKE54280.- 43 : PQKE54273.> 52 

70 PGKE54231,0:P0KE54292,240 

80 P0KE54287,45 ; P0KE54236,138 

100 PQKE54276,17:PQKE54283,17:POKE54230, 17 

110 F0RT=1TO500 ; NEXT 

120 P0KE54276,16:P0KE54283,16■POKE54290, 16 


Three notes (C, E, and F) are played in the fifth octave at the same time. All 
these have the same Attack/Decay, Sustain/Release, and Waveform variables. 
Think of the sound variation you can produce with changes in each voice. 

- Lines 20 through 80 set the Attack/Decay, Sustain/Release, and Note 
frequencies for Voices 1, 2, and 3. 

— Line 100 turns the triangle waveform on for all three voices. 

— Line 120 stops the triangle waveform for each of the voices. 


MUSIC LESSON SUBROUTINES 



C SCALE 


Let's begin our lesson with a scale. This FUN SCALE is not exactly musi¬ 
cally correct, but it is an easy way of approximating a scale for a game or quiz. 


10 REM*#FUN SCALE 
20 PGKE54296,15 
30 P0KE54277,9:P0KE54273, 65 
40 FQRY=25TQ250 STEP 25 
45 X=Y 

50 P0KE54273,Y:P0KE54272, X 
60 P0KE54276,17 
70 FDR T=1TO100:NEXT 
30 P0KE54276*1 6 
30 NEXT Y 


In this program, the Commodore plays notes with high and low frequencies 
from 25 to 250—in steps of 25. Each note is played for a count of 100. Let's 
learn how to play a real scale now. In order to do so, Table 4-5 gives a chart of 
musical notes—making the notes and corresponding numbers for two 
octaves easy to identify. 
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Table 4-5. Frequency Values of Musical Notes 


NOTE 

FIFTH OCTAVE 

FOURTH OCTAVE 

HIGH FREQ 

LOW FREQ 

HIGH FREQ 

LOW FREQ 

C 

34 

75 

16 

195 

C# 

36 

85 

17 

195 

D 

38 

126 

18 

209 

D# 

40 

200 

19 

239 

E 

43 

52 

21 

31 

F 

45 

198 

22 

96 

F# 

48 

127 

23 

181 

C 

51 

97 

25 

30 

C# 

54 

111 

26 

156 

A 

57 

172 

28 

49 

A# 

61 

126 

29 

223 

B 

64 

188 

31 

165 


Please remember that the values in Table 4-5 are approximate and if you 
think they should be a little higher or lower, that is all right. There are no right 
answers. 


5 REM*#C SCALE 

10 P0KE54296;15 = P0KE54277;9•P0KE54278; 129 

20 H=54273:L*54272 

30 POKEH -■ 34 : PQKEL ■ 75 

40 GOSUE 200 

50 POKEH; 38 : PQKEL,126 

60 GOSUE 200 

70 POKEH;43 : POKEL; 52 

S0 GOSUE 200 

90 POKEH;45:POKEL;198 

100 GOSUE 200 

110 POKEH;51:POKEL;97 

120 GOSUE 200 

130 POKEH;5?:POKEL;172 

140 GOSUE 200 

150 POKEH;64:POKEL;188 

160 GOSUB 200 

170 POKEH; 68 :POKEL ;149 

180 GOSUB 200 

190 END 

200 P0KE54276;17 
210 FOR T=1TO300 ; NEXT 
220 PGKE54276;16 
290 RETURN 


The preceding is a little program that will play the C Scale one note at a 
time. After all eight notes have been played, the program ends. How could 
you get the scale to play again and again? Change line 190 to: 

190 GOTO IS 

and the scale will play continuously. 

You can instruct the computer to play any musical scale using Program 4- 
2 as an example. All that is needed is to change the notes in lines 40 to 170. 
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The values for G Major Scale are: 



High 

Low 

G 

50 

60 

A 

56 

99 

B 

63 

75 

C 

67 

15 

D 

75 

69 

E 

84 

125 

F# 

94 

214 

G 

100 

121 


Scales can be combined if you like. Simply POKE the scales on the same line 
and use a colon between the statements. For combined C and G scales on 
Voices 1 and 2, the program would be as shown in the following listing. 


5 REM*#CQMBINED SCALES 

10 P0KE54296,15:P0KE54277, 3 ■ P0KE54278, 129 
15 F'0KE54234,9:pOKE54285, 129 
20 H=54273 : L=54272 
25 0=54280=B=54279 

30 POKEH,34:P0KEL,75:POKER,50■POKEB,60 
40 GOSUB 200 

50 POKEH,38:POKEL,126■POKER,56:POKEB,99 
60 GOSUB 200 

70 POKEH,43 POKEL,52:POKER,63:POKEB,75 
80 GOSUB 200 

90 POKEH,45 : POKEL,198 : POKER,67 : POKEB, 15 
100 GOSUB 200 

110 POKEH,51■POKEL,97:POKER,75 : POKEB, 69 
120 GOSUB 200 

130 POKEH,57 ; POKEL,172 : POKER,84 : POKEB, 125 
140 GOSUB 200 

150 POKEH,64 = POKEL,188 : POKER,94:POKEB, 214 
160 GOSUB 200 

170 POKEH,68:POKEL,149:POKER,100:POKEB, 121 
180 GOSUB 200 
190 END 

200 P0KE54276,17 : P0KE54233, 17 
210 FOR T=1TO300 ; NEXT 
220 P0KE54276,16 : P0KE54233, 16 
290 RETURN 


Notice that this is the same program as for the C Scale program shown earlier 
with Voice 2 POKEs added. 


PLAYING CHORDS ON THE COMMODORE 64 


As we mentioned earlier in this chapter, you can activate more than one 
voice at a time. The following program illustrates how the Commodore can 
be made to sound like an organ. 
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5 REM**CHORDS!*# 

10 P0KE54296,15:P0KE54277,0:P0KE54278,240 

15 P0KE54284,0 : P0KE54285,240: P0KE54291,0: P0KE54292, 240 

20 H s »54273 : L=54272 

25 R«54280:B*54279■X-54237:V=54286 

30 POKEH, 34 = POKEL, 75 : POKER, 43 : POKEB, 52 : POKEX, 51 •' POKEV, 97 
40 GOSUB 200 

50 POKEH, 38: POKEL, 1 26 : POKER, 48 : POKEB, 127 : POKEX, 57 : POKEV, 172 
60 GOSUB 200 

70 POKEH, 43 = POKEL,52:POKER,54:POKEB,111:POKEX,64 : POKEV,188 
80 GOSUB 200 

90 POKEH,47:POKEL,107:PQKER,59•'POKEB,190:POKEX, 75:FOKEV, 69 
100 GOSUB 200 

110 POKEH,51:POKEL,97:POKER,63 = POKEB,75:POKEX,75■POKEV,69 
120 GOSUB 200 

130 POKEH,57:POKEL,172:P0KER,71 :POKEB,12:POKEX,84:POKEV,125 
140 GOSUB 200 

150 POKEH,64'POKEL,188:POKER,79:POKEB,191:POKEX,94:POKEV,214 
160 GOSUB 200 

170 POKEH, 68: POKEL, 149 = POKER, 84 ■'POKEB, 125: POKEX, 100: POKEV, 121 

180 GOSUB 200 

190 P0KE54296,0 : END 

200 P0KE54276,17•P0KE54283,17=FOKE54290,17 
210 FOR T=1TO1000 : NEXT 

220 P0KE54276,16:P0KE54283,16:POKE54290, 16 
290 RETURN 


— Lines 30 through 170 represent the natural chords for C, D, E, F, G, A, B, 
and C. 

— Subroutine at line 200 starts and stops the waveform for each chord 
according to the timer in line 210. 

How can we add to this program to make it even more interesting? Instead 
of the computer having the fun of playing the chords, let's play the organ our¬ 
selves. 


THE COMMODORE 64 ORGAN 


Using our chord organ program, let's make some changes so we can input 
the chord we want to play. These are shown in the following program. 

1 REM*#C0mQD0RE 64 ORGAN*'# 

2 P0KE54296,15 = F0KE54277,0:P0KE54278,240 

3 P0KE54234,0:P0KE54285,240•P0KE54291,0:P0KE54292,240 

4 H=54273L=54272 

5 A=54280:B=54279:X=54287:V=54286 

10 PR I NT "PRESS C, D, E, F, G, A, E, OR C2 FOR THE CHORD VOU WANT’ 1 
12 INPUT AS 

14 IFR$="C" THEN GOTO 30 

16 IFRS= ,, D , ‘ THEN GOTO 50 

17 IFR$="E" THEN GOTO 70 

18 IFflS="E" THEN GOTO 70 
20 IFfl$="F" THEN GOTO 90 
22 IFRS="G M THEN GOTO 110 
24 IFRS="fl 11 THEN GOTO 130 
26 IFR$= ,l B" THEN GOTO 150 
28 IFR$="C2" THEN GOTO 170 

30 POKEH,34:POKEL,75:POKER,43 : POKEB,52:POKEX,51:POKEV, 97 
40 GOSUB 200 

50 POKEH, 33:POKEL,126 ; POKER,43 POKEB,127:POKEX,57:FOKE 1 V, 172 
60 GOSUB 200 
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70 POKEH, 43 ; POKEL,52 : POKEFL 54 : POKES,111 ■POKEX,64■POKEV, 188 
80 GOSUB 200 

90 POKEH, 47 ; POKEL, 107 : POKER, 59 ■ POKEB, 190 : POKEX, 75 : POKEV, 69 
100 GOSUB 200 

110 POKEH,51:POKEL,97:POKEH,63■POKEB, 75:POKEX,75 : POKEV,69 
120 GOSUB 200 

130 POKEH,57 POKEL,172-P0KEfl,71 POKEB, 12 ; POKEX,84 : POKEV,125 
140 GOSUB 200 

150 POKEH,64 : POKEL, 188 : POKEfl,79:POKEB,191:POKEX,94:POKEV,214 
160 GOSUB 200 

170 POKEH,68:POKEL,149:POKEfl,84 = POKEB, 125:POKEX,100:POKEV, 121 
200 P0KE54276,17:P0KE54283,17:POKE54290, 17 
210 FOR T=1TO1000:NEXT 

220 P0KE54276, 16 ■' P0KE54283, 16: POKE54290, 16 
230 GOTO 10 
290 RETURN 



It is simple to make the Commodore 64 "interactive." Lines 14 through 
28 ask if a key is entered in response to the INPUT and then make the com¬ 
puter go to the appropriate chord routine. 
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Here are some hints for playing and adapting the Commodore 64 Organ: 

1. You can make the organ play without interruption by inputting your 
next chord choice as soon as you hear the first. The Commodore 64 
thinks pretty fast and it will accept the input as soon as the preceding 
chord starts to play. Of course, you must press QS2Q3ZI after each 
selection. 

2. The organ can become a piano just by deleting Voices 2 and 3 and the 
values you don't need. Only one note will be played at a time. The 
simplicity and clarity of piano music is nice. Have some fun with this 
adaptation. 

3. Would you like to end the program with a key input? Easy. Simply add 
these lines to the program: 

29 IF AT = " Z" THEN GOTO 300 
300 END 

Now pressing "Z" stops the program cold for you, saving you from using 
1 and | 


RUN/STOP 


RESTORE 


COMMODORE SONG BOOK 
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You can play any song you want by POKEing the sounds in in the proper 
order. We can see how even short songs would become long and dull to 
enter. BASIC provides an easier way to do it. 

SOUND SUBROUTINES USING DATA FILES 

The DATA and READ statements can save a lot of inputting time. Values 
can be assigned to variables by telling the computer to READ from a DATA 
list. The DATA statement does not tell the computer to do anything, it simply 
provides values in the list. 

When we use the READ command and a DATA file, we have to keep 
somethings in mind. The computer begins with the first value in the DATA list 
and continues through until there is no more data or until the computer finds 
a value that tells it to stop. Be sure you input the correct data and be sure that 
the notes are in the right order, because if you don't, the ''64'' will play some 
sour notes. 

Let's use the READ and DATA statements to make some beautiful music 
with the Commodore 64. Input the following program: 


300 rem**music with dhth statements** 

310 P0KE54296, 1 5:P0KE54277,9:P0KE54275, 0 :P0KE54274,255 = P0KE5427S, 0 
330 READH 

340 IFH=-1 THEN END 
350 READL 

370 P0KE54273,H■P0KE54272,L:P0KE54276,65 
375 FOR T=1TO300 : NEXT 
380 P0KE54276,64 
410 GOTO 330 

500 DATA34,75,34,75,51,97,51,97,57,172,57,172,51,97,45,198,45,198 
510 DATA43,52,43,52,38,126,38, 126,34,75,51,97,51,97,45,198,45,198 
520 DATA43,52,43,52,38,126,51,97,51,97,45,198,45,198,43,52,43,52 
530 DATA38,126,34,75,34,75,51,97,51,97,57,172,57,172,51,97,45,198 
540 DATA45,198,43,52,43,52,38,126,38, 126,34,75 
590 DATA-1,-1 


When you run this little beauty, you will hear an electronic rendition of 
TWINKLE, TWINKLE, LITTLE STAR. Save this program because we will show 
you some graphic subroutines to use with this song. 

Here are the note sequences of some old favorites that you can try out. 

Mary Had a Little Lamb 

EDCDEEE DDD EGG EDCEEEDD EDC 

Are You Sleeping 

GGABGGABG BCD BCD DEDCB GDEDCBGGDG GDG 



54 THE TOOL KIT SERIES Commodore 64 Edition 


You can add many others to your own song library, from nursery songs to 
Carole King. We will use the DATA and READ statements more in later chap¬ 
ters. For now, just remember that these are great time savers. 

ARCADE-TYPE SOUNDS 


Earlier in this chapter, we mentioned the noise maker for the Commodore 
64. All the programs in this section will be particularly useful for game pro¬ 
grams, arcade games, and educational programs. You can use all three voices 
of the Commodore 64 for these sound effects. 

Type the following program in: 

10 REM**POLICE SIREN** 

20 P0KE54296,15 = P0KE54277,136 = F0KE54273, 129 
30 P0KE54273 » 36 ; P0KE54272 >35 
40 GOSUE 100 

50 P0KE54273^ 64 : P0KE54272;188 
60 GOSUB 100 ' 

70 GOTO 20 
100 P0KE54276.' 33 
110 FOR T=1TO350 : NEXT 
120 P0KE54276;32 
150 RETURN 



This sounds like a European police siren, doesn't it? You can use this in a 
chase or time-sensitive game. However, one cannot listen to this siren for long 
without panicking. 

Let's use the next routine to make the sound of a crash. 

10 REM**CRRSH** 

20 P0KE54277,129:F0KE54273,65 = P0KE54273,5■P0KE54272,251 
30 FOR V=15 TO 0 STEP-1 
40 P0KE54276,129:P0KE54296,V 
50 FOR T=1TO50 : NEXT 
6S NEXT V 

To experiment, you should change the duration time in line 40. This routine 
uses the volume as the changing variable while the noise actually stays con¬ 
stant. 

If you develop any type of space game, a rocket blast-off noise can be 
essential. Try this. 
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10 REN**BLfiST-OFF** 

20 P0KE54277,9•P0KE54278,129-P0KE54273,25 : F0KE54272,100 
30 FOR V=15TO0STEP-.25 
40 P0KE54296,V:P0KE54276,129 
50 FORT=1TO50 : NEXT 
60 NEXT V 


Now try this program. 




10 REN#**MflCHIME GUN*** 

20 P0KE54296,15:P0KE54277,8■P0KE5427S, 1 
30 P0KE54273,34:P0KE54272,75 
40 P0KE54276,129 
50 FOR T=1TQ5@■NEXT 
60 P0KE54276,123 
70 GOTU 20 


Now, how about some musical reinforcement for a correct answer to a 
quiz. 





56 THE TOOL KIT SERIES Commodore 64 Edition 


10 F'0KE54296,15 
20 PQKE54277,9 
30 FOR T=1TO50 : NEXT 
60 REND fi 
70 READ B 

30 IFB=-1THEH STOP 
90 F0KE54273,A:P0KE54272,B 
100 POKE54276.' 17 
110 FOR T=1TO50 : NEXT 
120 P0KE54276,16 
140 GOTO20 

150 BATR34,75,33, 126,43,52,45, 193 
160 DRTA51 >97,57,172,64, 133,63, 143 
170 DRTR -1,-1 


However, if you enter an answer incorrectly, your Commodore 64 might give 
you this message: 


10 REN***WR0NG ANSWER*** 

20 P0KE54296,15 

30 P0KE54277,0 : P0KE54278,240 

40 REAIifl : RERDB : RERDB 

30 IF B=-l THEN STOP 

100 P0KE54273,R : P0KE54272,B 

110 P0KE54276,17 

120 FOR T=1 TQIi : NEXT 

130 P0KE54276,16 

140 GOTO 30 

150 DATA 12,143,100,8,97,500 
160 DATR-1,-1,-1 


The more you work with sound and music, the more interesting touches 
you can add to your programs. Keep experimenting. 


PUTTING SOUND AND COLOR TOGETHER 


We discussed color in Chapter 3 and now we have introduced you to 
some sound subroutines for the Commodore 64. Let's combine what we have 
learned into one program. Let's change the Commodore 64 Organ into the 
Commodore 64 Color Organ. 

1 REM**C0f1f10D0RE 64 COLOR ORGAN** 

2 P0KE54296,15 = P0KE54277,0:P0KE54278, 240 

3 P0KE54284,0:P0KE54285,240:P0KE54291,0:P0KE54292,240 

4 H"54273 : L=54272 : K=53281 

5 A-54280 = B=54279:X=54287:V=542e6 

10 PRINT'LTRESS C, D, E, F, G, A, B, OR C2 FOR THE CHORD VOU WANT" 

12 INPUT A* 

14 IFA*«"C" THEN GOTO 30 

16 IFA*»"D'' THEN GOTO 50 

17 IFA$="E" THEN GOTO 70 

18 IFA$*"E" THEN GOTO 70 
20 IFA**"F n THEN GOTO 90 
22 IFA^'G" THEN GOTO 110 
24 IFA$="A" THEN GOTO 130 
26 IFA$="B" THEN GOTO 150 
28 IFA»«"C2 H THEN GOTO 170 

30 POKEH,34:POKEL,75:POKER,43 = POKEB,52:POKEX,51■POKEV, 97 = POKEK, 0 
40 GOSUB 200 

50 POKEH,38=POKEL,126:POKER,48=POKEB,127:POKEX,57:POKEV,172:POKEK,i 
60 GOSUB 200 

70 POKEH,43 : POKEL,52 : POKER,54 : POKEB,111:POKEX,64:POKEV,138:POKEK,2 
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30 GOSUB 200 

90 POKEH, 47 : POKEL, 107 : POKER, 59 : POKES, 190 ■ POKEX, 75 ■ POKEV, 69 ■ POKEK, 3 
100 GOSUB 200 

110 POKEH,51:POKEL,97:POKER,63:POKES, 75■POKEX,75•POKEV,69■POKEK,4 
120 GOSUB 200 

130 POKEH,57 : POKEL,172-POKER,71:P0KEB, 12 : POKEK,84 : POKEV,125 : POKEK,5 
140 GOSUB 200 

150 POKEH,64:POKEL,138 : POKER,79 : POKES, 191 : POKE*,94 -POKEV,214 : POKEK,6 
160 GOSUB 200 

170 POKEH,68 : POKEL,149:POKER,84 - POKES, 125-POKEX,100:POKEV,121 : POKEK,7 
200 P0K.E54276, 17 : P0KE54233, 17 : POKE54290, 17 
210 FOR 1=1101000 : NEXT 

220 P0KE54276,16:P0KE54233,16:P0KE54290,16 
230 GOTO 10 
290 RETURN 


With the additional POKE statements in lines 30 through 170, we have 
added a splash of color to our Organ. Each time a different chord is played, 
the screen flashes with different colors. 

In this chapter, we have covered many ways to use sound and music on 
the Commodore 64. We encourage you to experiment and try inventing your 
own subroutines to use. 
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One of the main reasons you probably bought your Commodore 64 was 
to create computer graphics. Right? Well, in this chapter, we will show you 
how to create mazes, borders, graphs, playing boards for games, and a variety 
of fun-filled and useful characters. 


CREATING GRAPHICS WITH THE PRINT COMMAND 


Graphics can be created using the PRINT command. Simply put the 
graphics characters inside quotation marks following PRINT. Try this pro¬ 
gram: 


10 PR I NT 
20 PRINT "I [ 
30 PRINT "I •• I 
40 PR I NT "I I 
50 PRINT"\ 

60 PRINT".- \ 


The program will display a friendly face when you type RUN and press 


RETURN 


. The completed face looks like this: 



Anyone you know? For a face you will never forget, add this line: 

70 GOTO 10 

and the face is printed over and over. 

You can place the face anywhere on the screen using the PRINT com¬ 
mand. Try this: 

5 PRINT'TMBWKr 

This clears the screen and starts printing 4 lines down on the screen. The 0 is 
the unshifted cursor key inside quotation marks. To move the face more 
toward the screen's center, use the TAB function. Add TAB(IO) to each of the 
lines (lines 10 through 60). Line 10 would look like this: 
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10 PRINT TREK 10} 


Now let's use PRINT to make our own space shuttle. 


10 PRINT n :fflnfl)fll^^ 
20 PRINT" /■■, " 

30 PRINT" I I " 
40 PRINT" I I " 
50 PRINT" / \ " 

60 PRINT"/_\" 

70 PRINT" I I " 


Improve on the space shuttle if you want. The graphics on the keyboard offer 
a lot of flexibility, especially when you learn to use the reverse of the graphics. 
As your graphic design becomes more complex, you may find that graph 
paper is helpful. Using the PRINT command, try to make this new spacecraft. 



It is not easy. When you try to add color to the graphics, you will realize 
how touch graphics like this one can become inside the PRINT quotation 
marks. 

CREATING GRAPHICS USING POKE 

We POKEd sound and color, and we can POKE graphics as well. Just like 
in sound, music, and color; we POKE values into various screen memory 
locations to create graphics. 


■■■ 


■ ACROSS 


25 


25X40 = 1000 




DOWN 
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Screen Maps 

Your Commodore 64 has 1000 screen memory locations (40 across times 
25 down). Count the rows and columns for yourself. Each of these locations 
has an address. Whenever you want to POKE a character into a location, you 
POKE the character into its "memory address." For characters, the addresses 
range from 1024 to 2023 (from top left-hand corner to lower right-hand cor¬ 
ner). 

Each keyboard character has a POKE value. See Appendix B for a listing 
of the screen codes for each character. The POKE value for a solid ball is 81. 
If you want to POKE the solid ball ffl into the upper left-hand corner 
("home" position), type in: 


No line numbers are needed at this point. 

There are 1000 memory locations for color also. The locations start at 
55296 and end at 56295. You must POKE in the color with the character for it 
to appear. The upper left-hand corner of the color code memory map is posi¬ 
tion 38400. The colors available are coded as: 


BLACK 

0 

PURPLE 

4 

ORANGE 

8 

MEDIUM GRAY 

12 

WHITE 

1 

GREEN 

5 

BROWN 

9 

LIGHT GREEN 

13 

RED 

2 

BLUE 

6 

LIGHT RED 

10 

LIGHT BLUE 

14 

CYAN 

3 

YELLOW 

7 

DARK GRAY 

11 

LIGHT GRAY 

15 


Now try this: 

POKE 1024,81 


A solid green ball will appear in the upper left-hand position. 

The maps in Figs. 5-1 and 5-2 will show you all the locations by row and 
column for character and color memory. These maps are identical to those 
shown in the User's Guide that came with your Commodore 64. 
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39 


mi 

J 104 

na 

its* 

1224 

1264 

1304 

1344 

1384 

1424 

1464 

\m 

1644 

*624 

1664 

1704 

1744 

1784 

1824 

1864 

1904 

1944 

mi 


1063 



2023 


i 


Fig. 5-1. Screen character memory map. 


66336 
56376 
55416 
55466 
55496 
55536 
55676 
66616 
66656 
55656 
55736 
55776 
558 ! 6 
>5866 
56856 
56936 
55976 
56016 
56056 
56096 
56136 
56176 
66216 
56256 


COLUMN 

20 


55335 

I 



20 


24 


t 

56295 


Fig. 5-2. Color code memory map. 
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Screen Border 

Looking at the two memory maps, let's devise a program for creating an 
additional border around the screen. (We changed screens and borders using 
color in Chapter 3.) We want a red checkerboard border around our screen. 
How do we do this? 

Step 1 . In order to get the top border filled, we have to POKE from 
1024 to 1063. The BASIC language offers us a convenient 
shortcut using FOR. . .NEXT loops. 127 is the character code 
forH. 

10 F0RZ=1024TO1063 : PQKEZ,127 : POKEZ+54272,2 : NEXT 


54272 is the difference between 55296 and 1024. 
Step 2. Now let's fill the border on the left side. 

20 FQRZ=1024TO1984 STEF'40 : F'OKEZ, 127 POKEZ+54272, 2 : NEXT 


We use increments of 40 to tell the computer where to POKE 
the border. 

Step 3. Next, let's fill the border on the right side. 


30 FQRZ=10S3TO2023 STEP40 : F'OKEZ, 127 : POKEZ+54272,2 : NEXT 

Step 4. Now, the bottom border. 

40 FORZ=1984TO2023 : POKEZ,127:POKEZ+54272,2:NEXT 

We could make our program a little shorter by changing lines 
20 and 30 to become: 

20 FORZ=1024TO1984 STEP40:POKEZ,127:POKEZ+54272.2 
30 POKEZ+39,127 : POKEZ+54311,2 : NEXT 


See how helpful arithmetic can be? 



Graphii 


1 



Now, change the border color or the character color. How about a solid 
black border? 


POKE Z, 16U and PUKE Z + 54272 ? W . 


Score Box 


Using what we learned about the border, let's make a simple "score box" 
that you can use for games or enhancement purposes. 


10 FORZ=1044 TO 1048:POKEZ, 160 : POKEZ+54272,5 : NEXT 
20 FORZ=1044 TO 1124STEP40■POKEZ,160:POKEZ+54272,5 
30 POKEZ+2,160;POKEZ+54274,5:POKEZ+4,160:POKEZ+54276,5:NEXT 
40 FORZ-1124 TO 1128 : POKEZ <160 : POKEZ+54272/5 : NEXT 



Lines 20 and 30 contain the directions for drawing the three vertical lines; 
Z, Z + 2, and Z + 4. Move the score box to another location on the screen. 
Use other graphics characters to make a better score box. 
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Tic-Tac-Toe Board 


Now, let's make a Tic-Tac-Toe board. Give this a try. 


100 PR I NT "IT 

110 FORG-12b4 TO 12S4 : POKEG,160 : PGKEG+54272,0:NEXT 
120 FGRG=1544 TO 1564=PQKEG,160=POKEG+54272,0=NEXT 
130 FGRG=1030 TO 1790 STEP 40■POKEG,160■POKEG+54272,0 = NEXT 
140 FORG=1037 TO 1797 STEP 40=POKEG,160=POKEG+54272,0=NEXT 


0 1 2 3 4 .5 6 7 8 9 10 U 1Z 13 14 15 16 17 13 19 20 21 



This program displays nine boxes that are roughly of the same size and suit¬ 
able for use in games like Secret Square or Tic-Tac-Toe. 

Let's fill the screen with graphics. In order to fill the screen with diamonds, 
let's input the following program. 


100 PR I NT 11 IT 

110 FGRZ=1024 TO 2023 : POKEZ .■ 90 : POKEZ+54272 > 4 : NEXT 


We like "reversed" diamonds. In order to reverse the character, add 128 to 
the POKE value. For diamond, the POKE value is 90; the reverse value is 218. 
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CHARACTER CODES 


We encourage you to try all the graphics characters on the keyboard. 
Here is a little program that makes it easy to experiment. Look in the appendix 
for the screen codes for each character needed to use this program. 


10 PRINT 

20 INPUT "WHFIT CHARACTER CODE'UX 
30 FORZ=1024 TO 2023•POKEZ,X:POKEZ+54272,4:NEXT 
40 FORT=1TO3000 : NEXT 
50 GOTO 10 


( - 






rrrrrrrrrrrr 



rrrrrrrrrrrr 



rrrrrwrwrrrr 



rrwrrrrrrrrr 



rrrrrrrrrrrr 



rrrrrrrrrrrr 



rrrrrrrrrrrr 



rrrrrrrrrrrr 

rrrrrrrrrrrr 


,_ 




Use this program to get an idea of what a full screen of keyboard charac¬ 
ters looks like. You may want to use this kind of display as we do in later 
games. The color chosen for this program was purple — you are welcome to 
change it. 

BAR CHARTS OR GRAPHS 

Bar graphs are useful because they compare information graphically. In 
the following program, we show you how to use bar graphs. Let's pretend you 
want to compare the acceleration of different cars. How long does it take for a 
car to reach 55 miles per hour? 
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10 pr i nt "rr 

100 PRINT"HOW MANY SECONDS TO REACH 55 MPH?" 

110 INPUT "CORVETTE ";R 

120 INPUT "TOYOTA "jB 

130 INPUT "DODGE ";C 

140 INPUT "VOLKS ";D 

150 INPUT "MUSTANG ";E 

160 INPUT "JEEP ";F 

200 PRINT"3" 

210 PRINT"COR"j 
220 X=A : GOSUB 500 
230 PR I NT 11 TOY" J 
240 X~B• GOSUB 500 
250 PRINT"DOD"; 

260 X=C=GOSUB 500 
270 PRINT"VU"J 
280 X=D=GOSUB 500 
290 PRINT"MUS"; 

308 X=E ; GOSUB 500 
310 PRINT"JEE "j 
320 X=F=GOSUB 500 
340 END 

500 FOR Y=1TOX 
510 PRINT CHR$<162); 

520 NEXT V 
530 PRINT 
590 RETURN 



There is a lot of information you can graph in this way. Try out different 
graphic characters. We like the way that the solid ball, CHR$(113), looks in a 
bar chart. 


PICTURES WITH THE COMMODORE 64 


You can create pictures of almost any type using the Commodore 64. In 
this next section, we will show you how to put several graphics together to 
form a scene. We will also add music and a sneak preview of animation. (Ani¬ 
mation is covered in the next chapter in detail.) 








Graphics Subroutines 69 



Pine Tree 


Let's draw a pine tree. Using graph paper, we have sketched a tree like 

this. 



The program for POKEing the pine tree is: 


5 PRINT 11 21" 

10 Z=1024 : C=55296 
25 REM**PINE TREE 
30 POKEZ+690,233 : POKEC+690;5 
40 POKEZ+730 1 233 : POKEC+730 >5 
50 POKEZ+769/233 : P0KEC+769; 5 
60 POKEZ+771..160 : POKEC+771>5 
70 PQKEZ+809;233 : POKEC+809.- 5 
80 P0KEZ+8I1,160:POKEC+811,5 
90 POKEZ+848.. 233 : PQKEC+848- 5 
100 POKEZ+850,160 
110 POKEZ+852,160 
120 POKEZ+853;223 


: POKEZ+691,223 : POKEC+691,5 
= POKEZ+731,223 = POKEC+731,5 
•POKEZ+770,160:POKEC+770,5 
: POKEZ+772,223 = POKEC+772,5 
■POKEZ+810, 160:POKEC+810,5 
:POKEZ+812,223:POKEC+812,5 
: POKEZ+849,160 : POKEC+349,5 
'■ POKEC+850,5 : POKEZ+851,160 : POKEC+851,5 
:P0KEC+852,5 

■ POKEC+853,5 : POKEZ+890, 11S ; POKEC+830 .■ 8 


You should have a green tree with a black trunk near the lower left-hand 
corner of the screen. Save this program because we are going to add to it. 
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Person 


Add the following lines to the program: 


130 REH**PERSON 

140 POKEZ+779,81:POKEC+773,7 = POKEZ+818,78:P0KEC+813, 7 
150 POKEZ+S19,160:POKEC+819,7: POKEZ+820,77:POKEC+820,7 
160 P0KEZ+S59,117:POKEC+859,7:POKEZ+860,117:POKEC+360, 7 


1e 


Now you have a person-type figure located near the bottom center of the 
screen. Since we are also going to add a house to this "scene,” let us show 
you how we planned the whole thing. We devised a special graph paper, 
showing screen and color code memory locations as variables. This is a 
handy tool and you're welcometo copy it from the book for your own design¬ 
ing. There is an example of this graph paper given in the appendices. 


10 20 30 40 
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House 


Add the following lines to the program. This will draw a little red house: 


165 EEM**HOUSE 


170 POKEZ+743, 160 : PGKEC+748,2 : POKEZ+743, 219 ; PQKEC+749, 1 
180 POKEZ+736, 160 : P0KEC+7S6.. 2 : POKEZ+787, 160 : POKEC+787, 1 
190 POKEZ+788,160:POKEC+788,2 : POKEZ+783, 160:POKEC+789,2 
210 POKEZ+706,160 = POKEC+706,2:POKEZ+707, 160■POKEC+707,2 
220 POKEZ+708,160:POKEC+70S,2:POKEZ+709, 160 = POKEC+709,2 
230 POKEZ+746,160:POKEC+746,2 = POKEZ+747,160:PQKEC+747, 1 
240 POKEZ+627,233:POKEC+627,0:POKEZ+628, 223■POKEC+628,0 
250 POKEZ+666,233 = POKEC+666, 0 : POKEZ+667, 160 = POKEC+667,0 
260 P0KEZ+66S,160■POKEC+668,0:POKEZ+669, 223:FOKEC+669,0 


We have POKEd a tree, a person, and a house on the screen. Let's make 
the scene even more interesting. Add the following lines: 


300 REM**HUSIC RHH STARS 

310 P0KE54296,15:P0KE54277,88:P0KE54275, 15 : P0KE54274,15:P0KE54278,89 
320 FOR S=1TO100 
330 READH 

340 IFH--1 THEN END 
350 REAHL 

360 POKE1024+1NTCRNDCl>*560), 42 

370 P0KE54273,H:P0KE54272,L:P0KE54276,65 

375 FOR T=1TO100 : NEXT 

380 F0RT=1T025 : POKE1024+1NT(RNDC1>*560>, 32■P0KE54276,64 = NEXT 
330 NEXTS 
410 GOTO 330 

500 BATA34,75,34,75,51,37,51,97,57,172,57,172,51,97,45,198,45,198 
510 DATA43,52,43,52,38,126,38,126,34,75,51,37,51,97,45,198,45,198 
520 DATA43,52,43,52,38,126,51,97,51,97,45, 198,45,198,43,52,43,52 
536 DATA38,126,34,75,34,75,51,97,51,97,57, 172,57,172,51,97,45, 198 
540 DATA45,198,43,52,43,52,38,126,38, 126,34,75 
590 DATA-1,-1 


— Line 310 set the volume, attack/decay, sustain/release, and pulse rates 
for sound. 

— Line 320 sends the program through the stars and music generation 
sequence for a count of 1 to 100. 

—Line 360 POKEs a star randomly into the first 560 screen locations. 

—Line 370 plays the note read from DATA statements. 

— Line 380 counts to 25 and POKEs a space where the star was (so that it 
twinkles). The note is also cut off. 


Let's start a graphics subroutines library. You probably have some of your own 
to include. 


Spacecraft 


Remember the spacecraft we asked you to create using the PRINT com¬ 
mand earlier in this chapter? Let's create it with POKE. 
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100 REM**SPRCECRRFT 

110 PRINT"IT 

120 3=1024:C=55296 

130 POKES+770,233:POKEC+770,0:POKES+771,223:POKEC+771,0 
140 POKES+310,247: ROKEC+S10,0: POKES+811,247: P0KEC+811,0 
150 POKE3+350,247:POKEC+350,0:POKES+351,247:POKEC+851,0 
160 PGKES+883,233:POKEC+839,0:POKES+890,247:POKEC+S30,0 
170 POKES+891,247:POKEC+891,0:POKES+332,223 POKEC+832,0 
ISO PQKES+929,105 = POKEC+929,0:POKES+330,124:POKEC+930,0 
130 POKES+931,126:POKEC+931,0 ; POKES+332,35:POKEC+332,0 


Dice 


Now, let's draw some dice that we can use later in our "Traditional 
Games" chapter. 


6000 REM DICE OUTLINE 
6010 POKES+579,35 ; POKEC+573, 
6020 POKES+581,64:POKEC+581, 
6030 POKES+583,73=POKEC+533, 
6040 POKES+623,66:POKEC+623, 
6050 POKES+663,66:POKEC+663, 
6060 POKES+703,66:POKEC+703, 
6070 POKES+740,64 : P0KEC+740, 
6030 POKES+742,64 : POKEC+742, 
6030 POKES+666,35:POKEC+666, 
6100 POKES+668,64:POKEC+663, 
6110 POKES+670,73 : POKEC+670, 
6120 POKES+710,66 : POKEC+710, 
6130 POKES+750,66:POKEC+750, 
6140 POKES+790,66 : POKEC+790, 
6150 POKES+827,64 : P0KEC+S27, 
6160 POKES+329,64 : POKEC+329, 


0 : POKES+580,64:POKEC+580,0 
0:PQKES+582,64:POKEC+582,0 
0 : POKES+613,66 : POKEC+619,0 
0:POKES+659,66:POKEC+653,0 
0:POKES+633,66:POKEC+699, 0 
0:POKES+739,74:POKEC+739,0 
0:POKES+741,64:POKEC+741,0 
0:POKES+743,75:POKEC+743,0 
0:P0KE3+667,64:POKEC+667,0 
0:POKES+663,64 = POKEC+669,0 
0:POKES+706,66 = POKEC+706,0 
0:POKES+746,66■POKEC+746,0 
0:POKES+736,66:POKEC+736,0 
0:POKES+826,74:POKEC+826,0 
0:POKES+323,64:POKEC+828, 0 
0:POKES+330,75:POKEC+830,0 


These lines POKE the outsides of the dice. Now let's put the faces on each 
die. 


550 POKES+620,31:POKEC+620,0:POKES+702,81:POKEC+702,0 


850 POKES+707,31 : POKEC+707, 0 : POKES+739,81 : POKEC+789,0 

The dice should look like the following illustration. Now, change the pro¬ 
gram to show the dice with two sixes, or all the other possible values. 
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THREE DIMENSIONS 


You can POKE in more than two dimensions on the Commodore 64. 
There is a routine that POKEs a nice staircase for you. We planned it like 
this: 



10 REM«*THREE DIMENSIONS** 

20 PRINT"rj" 

30 3-1024 = 055296 

40 POKES+450,78 = POKES+451,7?:POKES+489,78 = POKES+492,77 
50 POKES+529,223=POKEC+329,7:POKES+332,233:POKEC+532,2 
60 POKES+569,160 = POKEC+569, 7 = PQKES+370,223: POKEC+570, 7 
70 POKES+571,233 = POKEC+571,2 = POKES+372,105 = POKEC+572,2 
80 POKES+573,77 -.POKES+609,95: POKEC+609, 7: POKES+610,160 = POKEC+610,7 
90 POKES+611,105 = POKEC+611,2 = POKES+613,233 = POKEC+613, 2 
100 POKES+650,95 = POKEC+650,7 = POKES+651,223 = POKEC+651,7 
110 POKES+652,233 = POKEC+652,2 = POKES+653, 105 = POKEC+653,2 
120 POKES+691 > 95 = POKEC+691,7 = POKES+692, 105 = POKEC+692, 2 


MAZE MAKER 


Learn a little more about graphics characters by playing with the follow¬ 
ing program. 
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10 REM#*MAZE MAKER#* 

20 PRINT":]" 

30 PRINT CHR*<109.5+RND<1)>; 
40 GOTO30 



This displays a maze formed with characters 109 and 110 (\ and /). They are 
picked randomly in the program by line 20. 

The more you experiment with graphics, the better you will get! We use 
some of the subroutines developed in this chapter in some of the later chap¬ 
ters. The twinkling stars on the picture scene gave us a primer for animation. 
Let's animate our graphics in the next chapter. 









Animation Subroutines 6 
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Animation, or the movement of figures on the screen, is a lot of fun. 
Although it may seem difficult, it really is not. Having mastered the graphics 
routines in the last chapter, you are now ready to animate. 


HOW DOES THE COMPUTER ANIMATE? 

just like Walt Disney Studios. Animation is performed by plotting a char¬ 
acter in one position, erasing it, and then plotting the character in another 
position. The computer completes this operation so quickly and so efficiently 
that all we see is the character moving along. Because of the speed, we hardly 
notice the erasing process. As in graphics, we can animate by using the PRINT 
command or by POKEing screen locations. 


ANIMATION USING THE PRINT COMMAND 


To illustrate this process, let's make a blinking ball. 


10 REM**BLINKING BALL** 
20 PRI NT"H" 

30 PRINT"*" 

40 POR T=1TO200 : NEXT 
50 PRINT"n" 

60 FOR T=1TO200 : NEXT 
70 GOTO 30 


Actually, we have made the ball blink on and off much like the computer 
blinks the "cursor" for us. If this excites you, try this fluttering heart program. 


10 PRINT":! 1 
20 PR I NT "S3 r#-," 

30 FOR T=1TO300 : NEXT 
40 PR I NT "3 11 

50 FOR T=1TO300 ; NEXT 
60 GOTO 20 


The Q in lines 20 and 40 sets the cursor at the home position. To get the Q 
inside quotation marks (for the PRINT command), you press ItH:JJ!MAI3 with¬ 
out pressing ia;iiai . Since only one character can occupy a place at the same 
time, each new character "erases" the old one. 


Jumping Jack 

Let's use the person we made in the graphics chapter for animation. Type 
this into your Commodore 64. 
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5 REM##JUMPING JFlCK## 
10 PRINT 11 n" 

20 PRINT" I " 

30 PRINT" ,3 TSs" 

40 PRINT" ! ! " 

50 FORT=1TO500 : NEXT 
60 PRINT ,, r3" 

70 PRINT" • " 

80 PRINT" ‘-S rms" 

90 PRINT’ 1 / \" 

100 FORT=1TO500 : NEXT 
110 GOTO 10 







1 




/Pt 









111 


i 

i 








Jack exercises on the screen for us. Lines 30 and 80 make use of the 
Reverse On and Reverse Off keys to make the abdomen for Jack. 

Now, let's move our "Jumping Jack" figure across the screen using the 
PRINT command and the cursor controls. 


10 print m :t 

.20 PRINT" I nil"; 

25 PRINT-M^llll"; 

30 PRINT"M I l llir 
40 FOR T=1TO100:NEXT 
50 PRINT" llll", 

60 PR I NT "H nil"; 

65 PR I NT "H 11111"; 

70 FOR T=1TO100 
180 GOTO 20 


— Line 20 prints the head and then moves the cursor left 3 spaces. 

— Line 25 moves the cursor down 1 space, prints the arms and body, and 
then moves the cursor left 3 spaces. 

— Line 30 moves the cursor down 1 space, prints the two legs, and then 
moves the cursor left 3 spaces. 

— Lines 50 through 65 erase the figure. The last character inside the quo¬ 

tation marks in line 65 (Q) moves the cursor one space to the right, thus 
moving the whole process across (horizontally) the screen. Note that 
this character is made by pressing the cursor key while inside " " 

Now let's make our figure do some exercises while moving across the 
screen. Add these lines to your program. 
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80 PRINT" • llll 
90 PRIHT l, M'^lIil M ; 

160 PRINT"M/ Mill"; 
120 FOR T=1T0100 : NEXT 
130 PRINT" llll". 

140 PRINT"H 1111"; 

150 PRINT"H Hill"; 

160 FOR T=1TO100:NEXT 


As you enter these lines, you should notice the repetition. Let's make our 
program shorter and more efficient by using the GOSUB command. 

10 PRINT"!!" 

20 PRINT" • llll"; 

25 PR I NT llll"; 

30 PRINT"W I I llll 
40 GOb'UB 200 
80 PRINT" • llll".: 

90 PR I NT "n'W llll"; 

100 PR I NT" ^ Mill"; 

120 GOSUB 200 

180 GOTO 20 

200 FOR T=1TO200 : NEXT 

210 PRINT" llll"; 

220 PRINT"H llll"; 

230 PRINT"H Hill 
240 FOR T=1TO50 ; NEXT 
250 RETURN 


We changed the timing a little in lines 200 and 240 and the animation 
looks a little more realistic. How can we move the figure vertically (down the 
screen)? Change line 230 to: 

230 PR I NT "n 

How about diagonally across the screen? Change line 230 to: 

230 PRINT'D lll[f*l 
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USING STRINGS IN ANIMATION 


We can save some effort in defining the graphics we want to animate by 
defining them as string variables. Look at the following snake example. 


5 REM**SNRKE$# 

10 PR I NT 11 

20 llltllllll 

30 b*= m »i*»r 
50 PRINT R$; 

30 GOSUB 100 
90 GOTO 20 

100 FOR T=1TO100:NEXT 
110 PRINT B*; 

140 FOR T=1TO50 : NEXT 
150 RETURN 


See how easy string variables are to use? Let's make the snake's tail wiggle 
when it moves. Add these lines. 


40 C$=" Jlltllllll 


60 GOSUB100 
70 PRINT 



Try to animate your own graphics. How about a flying saucer or a car? 
Make a cruise missile or a cruise ship move across the screen. We have dis¬ 
cussed animation using the PRINT command and now will move to anima¬ 
tion using POKE. 
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ANIMATION USING POKE 

Let's move a ball around the screen using the POKE statement. Type this 
in. 


3 REM**BflLL MOVEMENT## 

10 PRINT":!" 

80 SP=1034 : SOSP+54272 

100 FORX=1TO1000 STEP 40 

110 POKESP+X,81 

120 POKESC+X;0 

130 FOR T-lTO100:NEXT 

140 P0KESP+X,32 

150 F0RT=1TO100 : NEXT 

160 NEXT X 

200 GOTO100 


— Line 80 sets SP and SC as the starting screen location for the ball. 

— Line 100 moves the ball down the screen (40 spaces at a time and one 
row at a time) for a count of 1000. 

— Lines 110 and 120 POKE a black ball. 

— Line 140 POKEs a space where the ball was, therefore “erasing" it. 

You can change the program to move the ball wherever you want by 
changing either the starting positions or by changing line 110. Try the follow¬ 
ing. Change line 100 to: 


100 FGRX=1TO1000 STEP 2 


The ball moves across the screen in a horizontal fashion. To add some ran¬ 
domness to the ball's position enter this: 


100 X=INTCRNDC1)#1000) + 1 


Moving Jack 


We can move a graphic figure like our “Jack" using this method. Try this 
program: 


5 REM**M0VING JACK## 

10 PRINT"H" 

20 SP=1034 

30 FOR X=1TO900 STEP40 
40 P0KESP+X,81 
50 POKESP+40+X,102 
60 P0KESP+39+X.85 
70 PQKESP+41+X,73 
80 POKESP+80+X,116 
90 P0KESP+81+X,116 
160 FOR T=1TO100 : NEXT 
170 P0KESP+X,32 
180 PQKESP+40+X;32 
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190 P0KESP+39+X* 32 
200 P0KE$P+41+X,32 
210 POKESP+80+X,32 
220 PGKESP+81+X,32 
230 FOR T=1TG50 : NEXT 
240 NEXT X 
250 GOTO30 


— Line 20 sets SP as the starting place for Jack. 

— Line 30 moves Jack down the screen. 

— Lines 40 through 90 POKE the "Jack" character. 

— Lines 170 through 220 erase Jack by POKEing a blank space. 

You could easily change the direction by changing the starting positions and 
directions in lines 80, 90, and 100. 

If we want to control the ball or Jack by testing its location, we can use the 
following formula to do this: 

L = 1024 + X + 40 *Y 


where, 

L = location, 

X = row (from 0 to 39), 

Y = column (from 0 to 24). 


Bouncing Ball 


Let's use the formula in the following program. 


5 REM**B0UNCING BRLL*# 

10 PRINT 11 

20 X=1=V=1:ZX=1 : ZV=1 
30 POKE1024+X+40*V,S1 
40 FOR T=1TO50 : NEXT 
50 POKE1024+X+40#V,32 
60 X=X+ZX 

70 IFX=0ORX=39 THENZX=-ZX 
80 V=V+ZV 

90 IFV=0ORV=24 THEN ZY=-ZY 
100 GOTO30 


So you see how the X and Y variables move the ball about the screen? 
Lines 70 and 90 tell the ball to reverse its direction if it touches any of the 
screen borders. If you want to, you can make our Jumping Jack bounce 
around the screen, also. Pretty strange, but fun to watch. 
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Speeding Up Jack 


We can control and change Jack's speed by "PEEKing" to see if a key has 
been pressed. 


10 print" nmr 

20 PRINT" • HU"; 

30 PR I NT " JO Hth HU" i 
40 PRINT"* I I HU"; 

50 Fl=4 : F3=5 : X*64 
60 Z**PEEK( 197> 

70 IFZ=X THEN S=150 
80 IFZ=F1 THEN S=25 
90 IFZ*F3 THEN GOTO 10 
100 GOSUB300 
120 GOSUB400 
130 PRINT" • IHI 
140 PRINT"* H** HU"; 

150 PRINT"*/ Mill"; 

160 GOSUB300 

170 GOSUB400 

180 GOTO 20 

300 FOR T=1T0S : NEXT 

399 RETURN 

400 PRINT" HU"; 

410 PRINT"!"], HU"; 

420 PR I NT "n HU"; 

499 RETURN 


This is our original "Jumping Jack" program with lines 50 through 90 
added, as well as having line 300 broken out as its own subroutine. 

— If function key (FI) is pressed, then Jack's speed is increased. 

— If no key is pressed, Jack moves at his "normal" speed (T = 1 TO 150). 
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— If fu nction key (F3) is pressed, then the program is reset with Jack in the 
original position. 

Using these keys allows us control over a program while it is running. This 
proves very useful in game designs. 

Use PEEK for the bouncing ball program or use it for POKEd Jack. Try this 
logic to control direction as well as speed. Use your imagination and have 
fun. 


Space Commander 

You are in control of the spacecraft because you can: 

1. Increase the speed by pressing function key 1 (FI). 

2. Move the craft to the left by pressing function key 3 (F3). 

3. Move the craft to the right by pressing function key 5 (F5). 
Key in the following program: 


5 REM##SPACE COMMANDER## 

20 PRINT"3" 

70 FORX=0TO-950STEP-40 
80 Fl=4 ; F3=5 : F5=6 : Q=64 
90 Z=PEEK<197) 

100 IFZ=F1 THEN W=10 
110 IFZ=F5 THEN X=X+1 
120 IFZ=F3 THEN X=X-1 
130 IFZ=Q THEN W=100 

140 POKE 1914+X, 233 ■' POKE1915+X, 223: POKE1954+X ,106: POKE1955+X,116 
150 POKE 1994+X,78 : P0KE1995+X, 77 
160 GOSUB 300 

170 POKE1914+X,32:POKE1915+X,32:POKE1954+X,32:POKE1955+X,32 

180 POKE 1994+X, 32 •' POKE 1995+X, 32 

190 NEXT X 

200 GOTO 70 

300 FORK=lTOW:NEXT 

310 RETURN 


— Line 70 sets the movement of the spacecraft up the screen. 

— Line 80 defines the function key values. 

— Line 90 checks to see if a key is being pressed. 

— Lines 100 through 130 define the function keys' effect on speed and 
side movement. 

— Lines 140 and 150 POKE the spacecraft at the screen bottom. 

— Lines 170 and 180 erase the spacecraft by POKEing and blank space. 

— Subroutine 300 is the timing routine. 


You could add a number of asteroids or enemy space stations. Add these 
lines to the program: 
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30 F0RB=1T015 

40 POKE1024+INT<RND(1>*600).102 
50 NEXT D 



These lines add 15 asteroids which the spacecraft can eliminate by touch¬ 
ing them. You control the craft's movement. Can you clear the sky of the 
pesky asteroids? This animation routine shows you how games are con¬ 
ceived. In order to turn this program into a full-fledged game, we would want 
to add some sound and color special effects plus a scoring condition. 

Duck Hunting With Bow and Arrow 

This program will show you how to combine movement with a shooting 
effect. The hunter is at the bottom of the screen in a boat (the [A] graphic 
character). You can move the hunter to the left and right by pressing function 
keys 1 and 2. 

There are 20 ducks in the sky. When you want the hunter to shoot his 
arrow at the ducks, press the "F" key. An arrow is released and if a duck is hit, 
it is erased by the arrow. 

10 REH**HUNTING** 

20 Fl=4 ; F3=5 : MO-64 : F0=21 : SX=1024 

30 pr i nt 11 :r 

40 FORV=1TO20 

50 POKE1024+INT<RND<1)*600>. 104 
60 NEXT V 
70 Y=SX+980 
80 S=0■K=Y 
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90 X=PEEka97> 

100 IFX=M0 THEN D=0 

110 IFX=F1 THEN B=1 

120 IFX=F3 THEN D=-l 

130 IFX=F0 RND S=0 THEN S=S+1 

140 IFSO0 THEN GOSUB 400 

150 POKEV < 32 

160 V=V+D 

170 POKEV/88 

180 GOTO 30 

400 IF S=1 THEN K-V-40:POKEKz30:s=2:RETURN 
410 POKEK/32 

415 IF 3=25 THEN S=0: RETURN 
420 K=K-40■S=S+1 
430 POKEK/30 
490 RETURN 



— Line 20 sets the values for keys to be pressed. 

— Lines 40 through 60 POKE 20 ducks randomly in the sky in the first 600 
screen locations. 

— Line 70 sets the starting location for the boat and hunter at 2004 (1024 
+ 980). 

— Line 80 sets S and a variable that we use in shooting at 0. 

— Line 90 asks if a key is being pressed. 

— Line 100 states that if no key is pressed, then the direction is unchanged; 
D = 0. 

— Line 110 states that if function key 1 is pressed, the hunter is moved to 
the right. 

— Line 120 states that if function key 3 is pressed, hunter is moved to the 
left. 

— Line 130 states that if the FIRE key is pressed, "F", then S is set at S + 1. 

— Line 140 states that if S is not equal to 0, then the shooting subroutine 
for the arrow begins. 
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— Line 150 POKEs a blank space for screen location, Y. 

— Line 160 adds the value of D to Y. 

— Line 170 POKEs the hunter in the boat on the screen. 

— Line 180 sends the program to line 90 to see if any keys are being 
pressed. 

— Line 400 states that if S equals 1, then screen location K (which was 
defined as being the same as 2004 in line 80) is reduced by 40. The 
arrow is POKEd, S is increased in value, and the subroutine returns to 
the main program. 

— Line 410 states that the arrow is erased. 

— Line 415 says if S = 25 (the arrow has left the screen), the value of S is 
set at 0 and we are returned to the main program. 

— Line 420 says for every movement of the arrow, location K is decreased 
by 40 and S is increased by 1. 

— Line 430 causes the arrow to be POKEd on the screen. 

The use of the S variable allows the program to alternate movement from 
the hunter to the arrow. Since no two characters can move on the Commo¬ 
dore 64 at the same time using POKE, we alternate their movement with the S 
variable in order to make animation more realistic. We could make our 
graphics more elaborate and colorful and could also add sound to develop 
this into a challenging game of marksmanship. 

Mars Landing 

Let's practice landing a flying saucer on the surface of Mars. You control 
the saucer by using function keys 1, 3, and 5. 
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5 REM*#NflRS LRNDING*# 

10 PR I NT "73" : P0KE53231 j 0 
20 GOSUB 400 
30 X=0 

40 FORV=0TO23 STEP 1 
50 F1=4:F3=5:F5=6:Z0=64 
E0 K-PEEKC197) 

70 IFK=F1 THEN X=X+1 
80 IFK=Z0 THEN 0=40 
90 IFK=F3 THEN X=X-1 
100 IFK=F5 THEN 0=220 

110 IF PEEKa 1084+X+40#Y) = 102 THEN GOSUB 800 
120 IF PEEK<1085+X+40*Y)=102 THEN GOSUB 800 
130 IF PEEKC1086+X+40#Y>=102 THEN GOSUB 800 

140 POKE1044+X+40*Y,112=POKE1045+X+40#Y, 113:POKE1046+X+40#Y,110 
150 POKE1084+X+40#Y;109 = POKE1085+X+40#Y, 6? = POKE1086+X+40*Y,125 
160 GOSUB 300 

170 POKE1044+X+40*V,32:POKE1045+X+40#Y,32:POKE1046+X+40#Y,32 

180 POKE1084+X+40#Y,32:POKE1085+X+40#U,32:POKE1086+X+40#Y,32 

190 NEXT Y 

200 GOTO 10 

300 FOR T=1T0Q : NEXT 

399 RETURN 

400 FOR K=1TO250 

410 M=1024+1NT (RNIK1)#990) 

420 IFMM864 THEN POKEM,102 
430 NEXT K 
499 RETURN 

800 REM*#HIT MRRS SURFRCE 

810 P0KE54296,15:P0KE54273,61:P0KE54272, 126:P0KE54277,9 

820 P0KE54276.65-P0KE54275,15=P0KE54274,150 

830 P0KE53281 > 2 

840 FORT=1TO100 ■' NEXT 

850 P0KE54276.64 

860 POKE53281,0 

899 RETURN 


— Line 10 clears the screen and POKEs the background color black. 

— Line 30 sets X at 0. X is the column variable. 

— Line 40 sets Y from 0 to 23, the number of rows we want the saucer to 
move down the screen. 

— Line 50 sets values for the function keys and if no key is pressed (20). 

— Line 60 asks if a key is being pressed. 

— Line 70 states that if function key 1 is pressed, the saucer is moved one 
space to the right. 

— Line 80 states that if no key is pressed, the saucer's speed is set at the 
normal rated = 1 to 40). 

— Line 90 states that if function key 3 is pressed, the saucer is moved one 
space to the left. 

— Line 100 states that if function key 5 is pressed, the saucer is slowed 
down. 

— Lines 110 through 130 test to see if the lower part of the saucer touches 
the Mars surface. If it does, then the program is sent to Subroutine 800. 

— Lines 140 and 150 POKE the saucer graphic. 

— Lines 170 and 180 erase the saucer by POKEing spaces. 

— Subroutine 300 is the timing subroutine. 
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— Subroutine 400 POKEs the surface obstacles of Mars in the lower part of 
the screen. 

— Subroutine 800 flashes the screen red and beeps for every Mars surface 
obstacle hit. 

Use your own imagination to develop animation routines for the Commo¬ 
dore 64. You can set almost any graphics character to animation, using color 
and sound to make the sight more exciting. By PEEKing where one character 
is in relation to another, we can learn the basis for arcade game development. 
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Your Commodore 64 can easily become a helpful calculator and prob¬ 
lem-solver. We think it is smart to use your computer in this way, and you'll be 
learning how to develop subroutines for fun math games and quizzes in the 
next chapter. 

Don't be anxious about math, because our gentle approach to it will 
show you how easy arithmetic and algebra is on the Commodore 64. Let's 
start by reviewing some simple arithmetic operations. 

SIMPLE CALCULATIONS 

All you have to do to perform simple calculations on the Commodore 64 
is use the PRINT statement. Try it. 

PR I NT 2 -i- £ (and press IjgEE&D 

PRINTS-2 (and pressB3D32I 

PRINT 5*2 (The multiplication sign is the asterisk *.) 

PRINT 6/2 

PRINT 4 t 2 (The t is used for exponents. Thus, 4 t 2 

is the same as 4 2 .) 

PRINT 10*(2/5) (The parentheses show the computer 

which operation to perform first.) 

NOTE: Without the parentheses, the computer follows rules of priority. These 
priorities are: 

exponent t (highest priority) 

multiplication * 

division / 

addition + 

subtraction - (lowest priority) 

Let's look at some examples to see how you and the Commodore 64 can 

handle them. 

Parking Lot 

At your favorite parking lot, there are 20 rows of cars with 15 cars in each 
row. How many cars are there? 

PR I NT£0*15 

300 
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There are 300 cars. 

In the same full parking lot, four cars leave every hour. Two new cars 
arrive at the same rate, every hour. After three hours, how many cars are in 
the lot? Step-by-step, we can work out the problem: 

300 cars in the full lot 300 

3 hours times 4 cars leaving -(3*4) 

3 hours times 2 cars arriving +(3*2) 

Input this line: 

F' RIN T 3 0 0 - (3 * 4) + (3 * 2) 

294 

There are 294 cars in the lot after three hours. 


PROBLEM 1*: 

What if 10 cars leave every hour, and 6 arrive at the same rate? How 
many would there be in 4 hours? 


*The answers to all problems are at the end of each chapter. 
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There are other numeric functions your Commodore 64 can perform. We 
encourage you to learn about square roots, logarithms, cosines and the like in 
the manual that came with the 64. 


CALCULATING SUBROUTINES 


We're going to show you how to solve problems by using short programs, 
or subroutines, on the Commodore 64. 

Gallons and Liters 



First, let's look at this problem: 

If one gallon is the same as .2642 liters, how many gallons are 60 liters? 

We can solve this problem by multiplying 60 liters times .2642 to get the 
correct number of gallons. Using the PRINT statement, this would be: 

PRINT 60*.2642 

If we want to convert many different amounts of liters into gallons, we can 
write a program. 

L = liters 
G = gallons 

10 INPUT L 
20 LET G=.2642*L 
30 PRINT 6 


— Line 10 asks you to input a value for L. 

— Line 20 defines G as a function of L or in relation to L. 

— Line 30 tells the computer to print the value of G. 
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Type this program in and see what happens. The ? (question mark) 
prompts you to key in an amount of liters and it then prints the amount of 
gallons. 

Let's make the program more "friendly.” Change line 10 and 30 to read: 

10 INPUT "# OF LITERS";L 

30 PRINT L" LITERS IS THE SAME'AS "G" GALLONS" 

Now the program asks you to input the number of liters and it displays for you 
in plain English the liters-to-gallons conversion. 

Kilometers and Miles 

PROBLEM 2: 

Write a subroutine for converting kilometers from miles. For every 
kilometer, there are 0.621 miles. 

Pounds, Ounces, and Kilograms 



Let's do a slightly more complex subroutine by adding another variable to 
be input. 

1 pound = 2.205 kilograms 

We want the user to input the number of pounds and ounces in order to con¬ 
vert to kilograms. Try this program out: 

5 PR INT"n" 

10 PRINT "FIRST POUNDS, THEN OUNCES" 

20 INPUT P,0Z 
30 LET PZ=P+0Z/16 
40 KG=PZZ2.205 

50 PRINT PZ" POUNDS ARE "KG" KILOGRAMS" 
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— Line 5 starts the program with a clear screen. 

— Line 10 instructs you to input first pounds, and then ounces. 

— Line 20 asks you to give the values for P and OZ. 

— Line 30 defines PZ in relation to pounds and ounces (P and OZ). 

— Line 40 defines KG in relation to PZ (pounds). 

— Line 50 tells the computer to print pounds and kilograms for the values 
you have assigned. 


Inches and Centimeters 

We know that 1 inch equals 2.54 centimeters. Let's write the simple sub¬ 
routine for solving centimeters: 

10 INPUT "HOW MANY INCHES"; I 
20 LET CM=2.54*I 

30 PRINT I" INCHES IS APPROXIMATELY "CM"CENTIMETERS" 

PROBLEM 3: 

Now ..., using what you learned in the pounds/kilograms subrou¬ 
tine, can you change the preceding program into a feet, inches, and 
centimeters conversion subroutine? 


Temperature 


Converting from Fahrenheit to Celsius is not easy, but this subroutine 
should help: 


10 INPUT "DEGREES FAHRENHEIT"F 
20 LET C=.55556*<F-32> 

30 FRINT F" DEGREES FAHRENHEIT IS "C" DEGREES CELSIUS 
40 GOTO10 


— Line 40 tells the computer to go back to line 10 and prompt you for 
another Fahrenheit value. This line turns the program into a continu¬ 
ous loop. The way to stop it is to key in lawHamJ and ujsujm at the 
same time. 


Dollars and Deutschmarks 

Have you ever looked at the foreign rates of exchange in the financial sec¬ 
tion of the newspaper? This subroutine will show you the dollar amounts and 
the equivalent in marks. In 1983, one dollar was approximately 2.55 marks in 
West Germany. 
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10 PRINT":]" 

20 PR I NT" DOLLARS " / "MARKS" 
30 D=0 

40 PRINT D,2.55#D 
50 D“D+5 

60 IF D<30 THEN 40 
70 STOP 


— Line 10 starts the program on a clear screen. 

— Line 20 tells the computer to divide the screen in half (because of the 
comma) and put dollars on one side, marks on the other. 

— Line 30 starts D at 0. 

— Line 40 tells the computer to put the value of Don the left and 2.55*D 
on the right. 

— Line 50 tells the computer to add 5 to its value. 

— Line 60 says that as long as D is less than 30, print D and 2.55 times D. 

— Line 70 tells the program to stop. 


DOLLARS 

MARKS 

0 

0 

5 

1275 

10 

25,5 

15 

36.25 

20 

51 

25 

63.75 


Type the program into the computer and RUN it. Do you like the table 
format? What happens when you change line 60 to IF D < 50 THEN 40? How 
about changing the increment in line 50 from D + 5 to D + 2? Experiment 
with this table format. 

PROBLEM 4: 

You realize that exchange rates change almost daily. Change the Dol¬ 
lars and Deutschmarks subroutine so that you can input the most cur¬ 
rent exchange rate. 

PROBLEM 5: 

Wouldn't it be interesting to display Fahrenheit and Celsius conver¬ 
sions in a table format? Go back to the Temperature subroutine and 
prepare a new program. 
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Investing 



How much money can you make by investing it? This program shows 
you how easy it is to make money when you have some. The standard 
formula for return is: 

R = M * (1 + 1/100) Y 

where, 

R = the return, 

M = money invested, 

I = interest rate per period, 

Y = the number of periods. 


10 PRINT":]" 

20 PRINT"AMOUNT OF MONEV TO INVEST"■INPUT M 
30 PRINT"WHAT IS THE INTEREST RATE PER VEAR" INPUT I 
40 PRINT "HOW MANV YEARS" INPUT V 
50 LET R=M*<1 +I/100J TV 

60 PRINT "YOUR RETURN ON "M" INVESTED IS "R 


None of the lines used in this subroutine are new except for lines 20 
and 30, which combine the PRINT and INPUT statements using the 
colon. 

This is a fun subroutine to play with. We suggest you add another line 
so you don't have to type in NEW after each run. 

78 GOTO 28 
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These continuous loops are easy to make. What would happen if you had 
typed in 

70 GOTO 10 

Profit 

Most people are in business to make money, and making money 
means profits. How do we figure profit? 

Profit = Total Revenues - Total Costs 

Now let's do a "profitable" subroutine. 

10 PRINT":!" 

20 PRINT "WHAT WERE VOUR TOTRL REVENUES" INPUT R 
30 PRINT"WHAT WERE VOUR TOTAL COSTS":INPUTC 
40 LETP=R-C 

50 PRINT P" IS VOUR TOTAL PROFIT" 

Easy enough. Now we should figure at what "rate" we are profitable. 
When comparing businesses, we look at the profit as a percentage of rev¬ 
enue. By using this ratio, the performance of various businesses can be 
compared regardless of their size. We have to add the following lines to 
get this ratio. 

60 LET PP=P/R#100 

70 PRINT PP " IS VOUR PROFIT AS A PERCENTAGE OF REVENUES" 

— Line 60 defines PP (Profit as a % of Revenue) as Profit divided by 
Revenue times 100. 

— Line 70 simply prints the value of PP with a message. Now RUN the 
whole program. 

Current Ratio 


Banks and financial analysts often look at your current ratio as a mea¬ 
sure of your "financial health." It boils down to how much you have and 
what you owe. The simple formula is: 

Current Ratio = Current Assets/Current Liabilities 


PROBLEM 6: 

Write a subroutine for figuring current ratio. 
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Loan Analysis 

Using what we know about the Current Ratio in the last subroutine, 
let's figure a way to gauge the creditworthiness of a person (or a business) 
in a loan situation. 

Some banks won't loan you money if your liabilities exceed your 
assets (or your current ratio is less than 1). Let's assume that banks will 
only grant loans if the current ratio is greater than 1. 

10 PRINT "IT 

20 PRINT "WHAT ARE VOUR CURRENT ASSETS": INPUT A 
30 PRINT "WHAT ARE VOUR CURRENT LIABILITIES": INPUT L 
40 LET R=A/L 
50 IF R>1 THEN 100 
60 IF RO=l THEN 200 

100 PRINT "VOUR CURRENT RATIO IS "R" VOUR LORN IS ACCEPTED" 

105 STOP 

200 PRINT "VOUR CURRENT RATIO IS "R” VOUR LOAN IS DENIED" 

205 STOP 

— Line 50 tells the computerthat if the current ratio (R) is greater than 
1, it is to go to line 100. 

— Line 100 prints the current ratio and tells you that the loan is 
accepted. 

— Line 60 tells the computer that if R is less than or equal to 1, it is to 
go to line 200. 

— Line 200 prints the current ratio and tells you that the loan is 
denied. 

PROBLEM 7: 

Using what you have learned in this Loan Analysis case, go back to 
the Profit subroutine and add lines to the program so that: 

— If the percentage of profit is more than 20%, "the company is in 
good health." 

— If the percentage of profit is less than 20%, "the company is per¬ 
forming poorly.” 

ANSWERS TO CHAPTER PROBLEMS 
Problem 1 

Parking Lot 


PRINT 300-(4 * 10) + (4*6) 
284 
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Problem 2 


Kilometers and Miles 


10 INPUT "MILES'SM 
20 LET KN=0.62l*M 

30 PRINT M " MILES EQUAL "KM" KILOMETERS 11 


Problem 3 


Feet, Inches, and Centimeters 


10 PRINT "FIRST FEET, THEN INCHES" 

20 INPUT F,I 
30 LET FI-I+CF*12) 

40 LET CM=2.54#FI 

50 PRINT FI" INCHES IS APPROXIMATELY "CM" CENTIMETERS" 


Problem 4 


Exchange Rate 


10 INPUT "EXCHANGE RATE";EX 
20 PRINT"DOLLARS", "MARKS" 
36 D=0 

40 PRINT B, EX#B 
50 D=D+5 

60 IFDC30 THEN 40 
70 STOP 


Problem 5 


Temperature Table 


10 PRINT "IT 

20 PRINT "FAHRENHEIT","CELSIUS" 
30 F=0 

40 PRINT F,.55556#<F-32> 

50 F=F+20 

60 IF FO220 THEN 40 
70 STOP 


Problem 6 


Current Ratio 


10 PRINT 

20 PRINT "WHAT ARE VOUR CURRENT ASSETS" : INPUT A 
30 PRINT "WHAT ARE VOUR CURRENT. LIABILITIES"■INPUT L 
40 LET R=RXL 

50 PRINT R " IS VOUR CURRENT RATIO" 
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Problem 7 


Prof it Analysis 


70 IF PP>*20 THEN 100 
80 IF PPC20 THEN 200 

100 PRINT "YOUR PERCENTAGE PROFIT IS "PP" AND YOUR COMPANY IS IN GOOD HEALTH" 
105 STOP 

200 PRINT "YOUR PERCENTAGE PROFIT IS "PP" AND THE COMPANY IS PERFORMING POORLY" 
205 STOP 
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The educational games in this chapter are designed so that you can have 
fun while learning. 

We will explain the structure of each program and we encourage you to 
improve and enhance it with graphics, color, and sound, or whatever you 
like. The logic for these games can be used to create many more games, and 
we will give you lots of ideas for those, too. 

One of the main reasons we use a computer and write our own programs 
is to teach our children math and general educational concepts. Our kids 
enjoy quizzing each other and their parents about all kinds of things, from 
States and Capitals to Riddles; we hope you have as good a time with these 
games as we do. 

ARITHMETIC TESTER 


- ‘'I 


TEST YOUR ABILITY TO ADO 
THESE NUMBERS 

WHAT IS THE SOLUTION 
FOR 7 + S 

9 


_ -J 


This program asks you to add numbers. It stops the game after 10 ques¬ 
tions, gives you the score, and ranks you on three levels of competence. Type 
it in and try it out. 

10 PRINT "H" 

20 PRINT "TEST VOUR RBILITV TO ADD THESE NUMBERS" 

30 Q=0 
40 N=0 

50 fl=INT<RNDC0>#m 
60 B=INT<RND<0)*11> 

70 IF Q=10 THEN GOTO 240 
80 Q=Q+1 
90 PRINT " 7 }" 

100 PRINT "WHAT IS THE SOLUTION FOR "FT PLUS "B 
110 PRINT 
120 INPUT X 
130 PRINT 

140 IF X=A+E THEN 190 
150 PRINT "WRONG". 

160 PRINT fl+B" IS THE CORRECT ANSWER 11 

170 FOR T=1TO1000 : NEXT T 

180 GOTO 220 

190 PRINT "CORRECT" 

200 FOR T=1TO1000 : NEXT T 

210 N=N+1 

220 PRINT 

230 GOTO 50 

240 .GOTO 250 

250 PRINT N" QUESTIONS RIGHT OF "Q 
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260 .J=N/Q 

270 IF J=1 THEN GOSUB 3000 

280 IF J<1 FIND J>=. 7 THEN GOSUB 4000 

290 IF JC.7 THEN GOSUB 5000 

300 END 

3000 PRINT "VERV GOOD WORK" 

3500 RETURN 

4000 PRINT "GOOD WORK, BUT MORE PRACTICE WILL HELP” 
4500 RETURN 

5000 PRINT "YOU NEED TO PRACTICE RLDT" 

5500 RETURN 


— Line 30 starts the number of questions asked at 0. 

— Line 40 starts the number of correct questions at 0. 

— Lines 50 and 60 state A and B are integers (or whole numbers) ran¬ 
domly selected from 1 to 10. 

— Line 70 tells the program to go to line 240 if 10 questions have been 
asked. 

— Line 80 adds 1 to the number of questions asked. 

— Line 100 prints A + B in question form. 

— Line 120 asks you to input the answer. 

— Line 140 checks to see if the answer is correct. Otherwise, the program 
moves to the "wrong" answer part of the program. 

— Line 160 prints the correct answer. 

— Line 190 tells you that your answer is correct. Remember that line 140 
did the checking. 

. — Line 210 counts the number correct for all the questions asked. 

— Line 250 prints the score. 

— Line 260 turns the score into a ratio of the number correct out of the 
number asked. 

— Lines 270 through 290 tell the computer which subroutine to go to, 
depending upon the percentage answered correctly. 

Suggested Program Changes and "Dressing" 

You can enhance or dress up the program by adding sound, color, and 
graphics. Look at your "tools" chapters for ideas. In this program, there are 
several natural places for program enhancement. 

1. When a correct answer is entered. 

2. When an incorrect answer is entered. 

3. When the score for the round is displayed using Subroutines 3000- 
5000. 

The enhancement can be as simple as a different screen and border com¬ 
bination or as complex as a smiling face with changing background colors 
and with music for a job well done. 




104 THE TOOL KIT SERIES Commodoi 


litii 


The program can be easily altered to suit your needs in many ways. 

1. LEVEL — Change the level of difficulty by changing lines 50 and 60. To 
make the quiz harder, change the statement to read: 

INT(RNDd) * 100) + 1 

for both A and B. Now you will have addition problems of numbers 1 
to 100. 

2. LENGTH — You can make the quiz longer by changing the number of 
questions asked before the program ends. Adapt line 70 to: 

IFQ = 20 THEN GOTO 240 

Now you have 20 questions. You could change it to anything — even 
1000 or more. 

3. GRADING — You can set your own grades or competency levels by 
changing lines 270-290. If you would rather have 'Very good work" 
mean .9 (or 90%) and higher, change the lines to read: 

2!7y IF J ^ = .9 l HEN Gu-5UE -5yyy 

£89 IF J < . 9 AND J > = .7 THEN G0SUE 4000 

£ 9 0 IF J < . 7 T hi E N G 0 8 U E 5 0 0 0 

4. OPERATION — You can change this from addition to any other 
arithmetic operation you want, such as subtraction, division, and mul¬ 
tiplication. How? For subtraction, change (A + B) to (A - B) in lines 
140 and 160. Change the PRINT statement in line 20 to read SUB¬ 
TRACT and in line 100 to read MINUS, and you're done. 


MULTIPLICATION TABLES 


Using the same program structure as "Arithmetic Tester" and using 
READ-DATA statements, this program tests your ability to multiply the num¬ 
bers provided in DATA statements in the program. The number of questions 
asked is the same as the amount of data. When your answers are all correct, 
the computer smiles for you. 

10 PRINT "D" 

20 PRINT "THIS PROGRAM MILL HELP V0U LEARN YOUR MULTIPLICATION TABLES-HAVE FUN" 
30 Q=0 
40 N=0 
50 READ A 

60 IF R=99 THEN 240 
70 READ B 
80 Q=Q+1 
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90 PRINT "D" 

100 PRINT "WHAT IS THE ANSWER FOR M A" TINES 11 B 
110 PRINT 
120 INPUT X 
130 PRINT 

140 IFX=R*B THEN 190 
150 PRINT "WRONG" 

160 PRINT fi*B" IS THE RIGHT ANSWER" 

170 FOR T=1TO1000 ; NEXT T 

130 GOTO 220 

190 PRINT "CORRECT" 

200 FOR T=1TO1000 : NEXT T 

210 N-H+l 

220 PRINT 

230 GOTO 50 

240 GOTO250 

250 PRINTN" QUESTIONS RIGHT OUT OF "Q 
260 J=N/Q 

270 IFJ=1THEN GOSUB 3000 

290 IFJ<1 AND J>=.6 THEN GOSUB 4000 

290 IFJC.6 THEN GOSUB 5000 

500 DATR11,3,12.6,15,9,14,4,10,11, 13, 12.15,6,11,12,13,5,7, 14 
700 DATA99 
1000 END 

3000 PRINT "EXCELLENT WORK" 

3010 C=54272 

3020 POKE1724,37:POKE1724+C,7:POKE 1726,37 = POKE1726+C,7 
3030 P0KE1765,31■P0KE1765+C,7 : POKE1304,77■POKE1304+C,7 
3040 POKE1305,100■POKE1805+C,7:POKE1306,78 = POKE1806+C,7 
3050 RETURN 

4000 PRINT"GOOD WORK. PRACTICE MAKES PERFECT" 

4050 RETURN 

5000 PRINT "POOR WORK. PRACTICE MORE" 

5050, RETURN 



— Line 50 tells the computer to read the DATA in A (11, 12, 15, 14, etc,). 
These are numeric variables. 

— Line 60 tells the computer to go to the end of the program when all the 
DATA are used. 

— Line 70 reads DATA in B (3, 6, 9 , etc.). 
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Suggested Program Changes and "Dressing" 

Add sound, color, and more graphics to the subroutines. We have used a 
smiling face to encourage you to be creative. Use a frowning face for Subrou¬ 



tine 5000. Can you make the eye wink? Use the Random Color program in the 
"Commodore Color" chapter for good scores. You want music? Look at what 
you learned in the "Sound and Music Subroutines" of Chapter 4 for some fun 
routines. Change the programs in these ways to suit you: 

— Increase or decrease the level of difficulty of the problems by changing 
the DATA statements. 

— Add more data to make the program as long as you wish. 

— Change the scoring any way you wish. Can you think of a way to use a 
"point system" rather than saying "the number correct out of the num¬ 
ber asked?" 

— Change the operation to addition, division, or subtraction. 


SHAPE RECOGNITION GAME 


This game was written to test our children's shape recognition capabili¬ 
ties. The player decides if the shape drawn on the screen is a circle, square, 
triangle, or rectangle. 

10 REM *** SHAPE RECOGNITION GAME 

20 GOSUB 1000 

30 Q* INT(RNIK1>*4>+1 

30 IF Q*1 THEN GOSUB 400 

60 IF Q*2 THEN GOSUB 500 

70 IF 0*3 THEN GOSUB 600 
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80 IF Q=4 THEN GOSUB 700 

120 PRINT:PRINT"IS THIS fl CIRCLE, SQUARE, TRIANGLE OR RECTANGLE?" : PRINT 
130 INPUT X* 

150 IF Q=1 AND X$="CIRCLE" THEN GOSUE 800 
160 IF Q*1 AND X$0"CIRCLE" THEN GOSUE 900 
170 IF Q=2 AND X$="SQUARE" THEN GOSUE 800 
180 IF Q=2 AND X$O n SQUARE" THEN GOSUE 900 
190 IF Q=3 AND X$="TRIRNGLE" THEN GOSUE 800 
200 IF Q=3 AND X$<>"TRIANGLE" THEN GOSUE 900 
210 IF Q=4 AND X$="RECTANGLE" THEN GOSUE 800 
220 IF Q=4 AND X$0"RECTANGLE" THEN GOSUE 900 
250 GOTO 30 

400 REM#*CIRCLE SUBROUTINE 
410 PRINT'LTWWWaSWrs 

499 RETURN 

500 REM**SQUARE SUBROUTINE 

510 PRINT M afflWD»»M-1 I_I" 

599 RETURN 

600 REM**TRIANGLE SUBROUTINE 

610 PRINT ,, ^HWWW>»L-\ / \" 

620 PRINT"I»I-" 

699 RETURN 

700 REM*#RECTRNGLE SUBROUTINE 

710 PRWT"nmM*m - 1 i_r 

799 RETURN 

800 REM## CORRECT ANSWER SUBROUTINE 
850 PR I NT 11 MBWWMWt'ES ! VOU ARE RIGHT!" 

890 FOR T=1TO1000 : NEXT 

899 RETURN 

900 REM## WRONG ANSWER SUBROUTINE 
910 PRINT "MKttMMiaWRONG^" 

915 IF Q=1 THEN PRINT"THAT WAS A CIRCLE" 

920 IF Q=2 THEN PR I NT 11 THAT WAS A SQUARE" 

930 IF 0=3 THEN PRINT "THAT WAS A TRIANGLE" 

940 IF Q=4 THEN PRINT "THAT WAS A RECTANGLE" 

950 FOR T=1TO1500 : NEXT 
990 GOTO 50 

999 RETURN 

1000 REM##OPENING FRAME 

1005 PRINT'LT«M«ttM»WELCOME TO SHAPE RECOGNITION" 

1010 FOR T=1 TO 10 : PRINT" 300000000000000000000000000000000000000000 ^." ' NEXT 
1050 FOR T=1TO2000 : NEXT 
1099 RETURN 


— Line 30 defines Q as a random integer from 1 to 4. 

— Lines 50 through 80 send the program to the shape POKEing subrou¬ 
tines, depending upon what value Q is. 

— Line 130 asks for the shape. 

— Lines 150 through 220 send the program to the right and wrong answer 
subroutines, based on the input. 

You could simplify this game for a child by defining the input necessary as 
the first letter of each shape. For example, use "T" for Triangle, "C" for Cir¬ 
cle, and so on. We, personally, have also taped a drawing of the shape on the 
appropriate keys when using this game for toddlers. 

RHYMING RECOGNITION GAME 

This game uses DATA statements to test the player's ability to match 
words that rhyme. 
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5 REM- RHYMING RECOGNITION 
100 Q=0 : N=0 
110 READ A$ 

120 IF A$="FINISH" THEN GOTO 300 
125 READ B$:READ DTREAD D$ : READ Et 
130 Q=Q+1 

140 PRINT "rMMW'A* 


150 PRINT n X»»»»r£* 
160 PRINT M H>»»»rC$ 

170 PR I NT " HMMMPI" D$ 


180 PRINT"JSMOfl" 

190 INPUT X$ 

200 IF X$=E$ THEN GOSUB 5000 
210 IF XIOEt THEN GOSUB 6000 
240 GOTO 110 
300 END 

1000 DATA CAT,PUT,SAT,SIT,SAT,LOOK,TAKE,LAKE, BOOK, BOOK 
1005 DATA LOVE,LEAVE,DOVE,LIVE,DOVE 

1010 DATA WALK,WAKE,TALK,TAKE,TALK,MAN,CAN,MINE, AND, CAN 

1020 DATA END,SEND,AND,BIN,SEND 

1030 DATA FINISH 

5000 REM CORRECT ANSWER ROUTINE 

5100 PRINT "YOU ARE RIGHT!" 

5200 P0KE54296,15 

5250 P0KE54277,9 

5300 P0KE54273,33■P0KE54272,135 

5350 P0KE54276,17 

5400 FOR T=1TO1000-NEXT 

5450 P0KE54276,16 

5990 RETURN 

6000 REM WRONG ANSWER ROUTINE 
6100 PRINT "YOU ARE WRONG!" 

6350 P0KE54296,15 

6400 P0KE54277,0 : P0KE5427S,240 

6450 P0KE54273,12:P0KE54272,143 

6500 P0KE54276,17 

6550 FOR T=1TO1000 : NEXT 

6600 P0KE54276,16 

6700 GOTO 140 

6900 RETURN 


— Line 140 prints the word with which one of the three choices will 
rhyme. 

— Lines 150 through 170 print the choices for the key word. 

— Line 200 states that if the answer inputted is the same as the correct 
answer (E$), then the correct answer subroutine is called. 

— Line 210 states that if the inputted answer is different than the correct 
answer (E$), then the wrong answer subroutine is called. 

This program could be enhanced with color and graphics. A scoring sub¬ 
routine could be included. Lines 100 and 130 set this up (Q as the number of 
questions, N as the number correct). The number of words tested can be 
increased by simply adding more DATA statements. 

RIDDLE FRACTIONS 


This riddle game is fun and tests your ability to understand fractions. The 
computer asks you to figure out clues to the riddle using your knowledge of 
fractions. You have to use your imagination to answer the riddle! For exam¬ 
ple: 

MIDDLE 1/2 OF MATE = AT 
FIRST 1/2 OF RUNNER = RUN 
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If you cannot answer the riddle, key in anything and the program will give 
you a hint. You must answer the question correctly with the hint. The com¬ 
puter will keep asking you forever using the hint until you finally get the riddle 
— just like your friends do when they tell you a riddle! 


10 READ A* 

20 IF H*="END" THEN STOP 

30 READB* : READC* = READD* = READER : READF*: READG*: READH* : READ I * ■ RE AD J* ■ RE ADK* 

40 READL*:READM*:REACH* 

100 print "nai kt 

110 PRINT 

120 PRINT "SOLVE THIS RIDDLE" 

130 PRINT 

200 PRINTA*- PRINTB* = PRINTC* = PRINTD*:PRINTE* : PRINTF* 

205 PRINTG* : PRINTH* : PRINTI* ; PRINTJ* 

210 PRINT 

220 PRINT" Hi S3" 

230 PRINT 
235 INPUT X* 

240 IF X* = K* THEN GOTO 400 

250 PRINT "THERE IS A HINT - TRY AGAIN" 

260 PRINT 

270 PRINTL* ; PRINTM*:PRINTN* 

280 INPUT Y* 

290 IF V* = K* THEN GOTO 400 
300 GOTO 250 

400 PRINT "TNOU ARE RIGHT, THE ANSWER TO THE RIDDLE NAS "K* 

410 FOR T=1 TO 2O00 NEXT T 
420 GOTO 10 

1000 DATA FIRST 1/2 OF WHATEVER,MIDDLE 3/5 OF CHASE,FIRST 1/2 OF FIVEFOLD 

1020 DATA LAST 1/2 OF BUCKEYES,MIDDLE 3/5 OF HANDY,LAST 5/70F ARRESTS 

1030 DATA LAST 1/3 OF BEACON,MIDDLE 1/9 OF CRAEAPPLE,FIRST 5/3 OF WATERFALL 

1040 DATA LAST 3/7 OF GRABBED,THE MISSISSIPPI RIVER,MIDDLE 3/5 OF OTHER 

1050 DATA FIRST 11/13 OF MISSISSIPPIAN,LAST 5/6 OF DRIVER 

1060 DATA FIRST 1/2 OF WHATEVER,LAST 1/2 OF BABYFOOD,MIDDLE 1/3 OF UNDONE 

1070 DATA FIRST 5/7 OF BRAVERY,LAST 3/6 OF GENTLEPEOPLE 

1030 DATA MIDDLE 3/7 OF CREATOR,,,, 

1090 DATA HERO SUB,FIRST 4/7 OF HEROINE,LAST 3/5 OF GOSUB, 


— Line 20 defines the stop program condition. 

— Lines 10, 30, and 40 read all the string DATA for the riddles. 

— Line 100 provides a green stripe across the screen top. 

— Lines 200 and 205 print the riddle "code." 

— Line 220 provides a green stripe across the screen bottom. 

— Line 235 asks you for your input — the answer to the riddle. 

— Line 240 defines the correct answer condition. 

— Line 250 through 280 gives you a hint if you gave the wrong answer. 

— Line 290 compares your input to the correct riddle answer (K$). 

— Line 400 acknowledges that you have solved the riddle correctly. 


Suggested Program Changes and "Dressing" 


Add color, sound, and more elaborate graphics. If you don't like the 
green riddle box we have provided in the program, change it! 

This program is persistent about asking for the answer. It won't stop try- 
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ing. If you would rather have the answer to the riddle appear after failing to 
correctly answer (using the hint), here is how: 

Change line 300 to: 

300 PR I NT " WRONG AGP IN . THE ANSWER IS " K* 
and add line 310: 

310 GOTO 10 

We recommend using your own riddles in the DATA statements. Turning 
the riddles into the "fraction code" is half the fun. The other half is trying 
them out on your friends. The following riddles are corny, but maybe they will 
bring to mind your favorites. 

What kind of bridge makes people most anxious? 

ANSWER: A suspension bridge. 

What has teeth but cannot bite or chew? 

ANSWER: A comb. 

What does a pet canary say on Halloween? 

ANSWER: Twick or tweet. 

What do you get when you cross a centipede with a parrot? 

ANSWER: A walkie-talkie. 

Remember that you are allowed only 88 characters (or four lines on the 
screen) in DATA statements for each statement. 

PAINTER S PALETTE 
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Welcome to art class at Commodore school. We think you will enjoy cre¬ 
ating your own pictures and graphic designs on the screen using all eight 
Commodore colors and a brush. 

The brush movement is controlled by the keyboard: 

A = UP < - LEFT 
Z = DOWN > = RIGHT 

The brush color is changed using the color keys at the top of the keyboard. 

If the brush touches the picture frame, it is returned to the screen center in 
white. Note that turning the brush to white allows you to erase. 


5 REM - 
10 PRINT 
20 PRINT 
30 PRINT 
40 PRINT 
50 PRINT 
60 PRINT 
70 PRINT 


PRINTER'S PRLETTE 
3WTHI3 PROGRAM 


VOUR BRUSH 
VOU CONTROL 
. . ft= UP’ 1 
..2= DOWN" 

.. .O LEFT" 

..■>= RIGHT" 
80 FOR T=1TO3000 : NEXT 
30 PRINT 1 
100 PRINT 
110 PRINT 


IS 

THE 


■WARNINGS-IF 


TURNS VOUR SCREEN INTO fl COMMODORE PRLETTE" 
THE BLACK ERLL(*> WHICH APPEARS IN THE SCREEN 
BRUSH EV USING THESE KEYS:" 


THE 

YOU 


COLOR KEYS TO CHANGE THE BRUSH COLOR" 
PRINT THE PICTURE FRAME" 


"A WHITE BRUSH RETURNS TO THE CENTER OF THE SCREEN" 


115 FOR R=1024TO2023:POKER,81 : PQKER+54272,1:NEXT 

120 GOSUB 500 

130 A=1524 ; E=55736 ; K=0 

140 X=PEEK(137; 

150 IF X-10 THEN D=-40 
160 IF X=12 THEN D=40 
170 IF X=47 THEN D=-l 
180 IF X=44 THEN D-l 
190 IF X=64 THEN D=0 
200 IF X=56 THEN K=0 
210 IF X*59 THEN K=1 
220 IF X=*8 THEN K=2 
230 IF X=11 THEN K=3 
240 IF X=16 THEN K=4 
250 IF X=19 THEN K=5 
260 IF X=24 THEN K=6 
270 IF X=27 THEN K=7 


290 H=A+D 
300 B=B+D 

305 IF PEEK<A>=160 THEN A=1524:B=55796:K=1 
310 POKE A,81^POKEB.K 
320 FOR W=1TO50 : NEXT W 
330 GOTO 140 ' 

500 PRINT H n H -P0KE53281,1 

505 FOR P a 1024 TO 1063=POKEP,160:POKEP+54272,0=NEXT 
510 FOR P-1024 TO 1984 STEP 40:POKEP,160■POKEP+54272,0•NEXT 
520 FOR P=1063 TO 2023 STEP 40:POKEP,160 : POKEP+54272,0 = NEXT 
530 FOR P=1984 TO 2023 : POKEP,160 : POKEP+54272, 0 : NEXT 
590 RETURN 


CENTER 


— Lines 10 through 110 give you directions for painting. 

— Line 130 lets A and B be defined as screen and color code locations 
(near the center of the screen map). K is set at 0 (color code for black) 
initially. 

— Line 140 checks to see if a key is being pressed. 

— Lines 150 through 270 tell the program that if a key is pressed, values 
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for D (distance) and K (color) are assigned. All the codes for memory 
box 197 are listed in the appendices. 

— Line 290 states that A equals A (1524 to start with) plus D (distance 
depending upon what key is pressed). 

— Line 305 states that if the paint-brush character location touches a 
PEEK value of 160 (the picture frame), the brush is returned to the 
screen-map center, in color white (K = 1). 

— Line 310 states that the brush is moved and color is changed based on 
which keys are pressed. 

— Line 320 slows the brush movement. 

— Subroutine 590 POKEs a solid black picture frame. 


Suggested Program Changes and “Dressing" 

This program obviously uses graphics and color extensively. Some ideas 
for changes include: 

1. Make the picture frame a different color or use a different screen char¬ 
acter. See the POKE screen code table in the appendix. Try code 127, 
theH, for a checkerboard effect. 

2. Make the paint brush different by using different characters: 

Solid block 160 

Diamond 90 

Spade 65 

3. Slow down or speed up the movement of the brush by changing (or 

deleting) line 320. 


STATES AND CAPITALS 

This is our centerpiece educational game because it provides such a use¬ 
ful program structure for the States and Capitals game as well as many other 
educational games. 

You are asked to name the capitals of all the 50 states and are then scored 
and evaluated at the end of the game. Both color and sound greet you in the 
scoring subroutines of this game as well as when you enter a correct or incor¬ 
rect response. 

The structure of the overall program is similar to Arithmetic Tester and 
Multiplication Tables. It uses a powerful BASIC tool — arrays. With the DIM 
statement, in this program, you are allowed to dimension the data in two 
ways, one for States and one for Capitals. An important factor in these types of 
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educational quizzes is that you are able to have the questions chosen ran¬ 
domly from the data. 

1 REM-STATES AND CAPITALS— 

5 Q=0 ; N=0 

6 GOSUB 6000 

10 BIMA$<50),B$<50> 

15 RESTORE 

20 FOR Z=1TO50:READA$CZ>,B$<Z) : NEXT Z 
30 Z*INT<RND<n#50) + l 
40 IF Q=20 THEN GOTO 200 
50 Q=Q+1 

60 PRINT "TJJHAT IS THE CAPITAL OF M A$<Z) 

70 PRINT 
30 INPUT X$ 

100 PRINT 

110 IF X$=B$<Z> THEN GOSUB 1500 
120 IF X*OB*(Z) THEN GOSUB 2000 
130 GOTO 15 
200 GOTO 210 

210 PRINT N " QUESTIONS RIGHT OUT OF A TOTAL OF "Q 
220 J=N/Q 

230 IF J>=. 9 THEN GOSUB 3000 

240 IF J<.9 AND J>=.7 THEN GOSUB 4000 

250 IF JC.7 THEN GOSUB 5000 

500 BATA ALABAMA,MONTGOMERY NEW YORK,ALBANY,NEVADA, CARSON CITY,OHIO,COLUMBUS 
550 DATA IOWA,BES MOINES,SOUTH CAROLINA,COLUMBIA,OREGON,SALEM,TEXAS,AUSTIN 
600 DATA KENTUCKY,FRANKFORT,NEW JERSEY,TRENTON,MASSACHUSETTS,BOSTON 
650 BATA ARI ZONA, PHOENIX, TENNESSEE, NASHVILLE, WYOMI NO, CHEYENNE 
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700 DATA MINNESOTA,ST. PAUL,MARYLAND,ANNAPOLIS,NEW MEXICO,SANTA FE 

750 DATA NORTH CAROLINA,RALEIGH, CONNECTICUT,HARTFORD,ILLINOIS,SPRINGFIELD 

300 DATA MAINE,AUGUSTA,MICHI GAN, LANSING,GEORGIA,ATLANTA,ALASKA,JUNEAU 

350 DATA MONTANA, HELENA,ARKANSAS, LITTLE ROCK, CALIFORNIA,SACRAMENTO 

900 DATA COLORADO, DENVER, DELAWARE, DOVER, FLORIDA, TALLAHASSEE 

950 DATA HAWAII,HONOLULU, IDAHO, BOISE, INDIANA,INDIANAPOLIS,KANSAS,TOPEKA 

1000 DATA LOUISIANA,BATON ROUGE,MISSISSIPPI,JACKSON,UTAH,SALT LAKE ClTV 

1050 DATA NEBRASKA,LINCOLN,NEW HAMPSHIRE,CONCORD,NORTH DAKOTA,BISMARK 

1100 DATA OKLAHOMA,OKLAHOMA CITV,PENNSYLVANIA,HARRISBURG 

1150 DATA RHODE ISLAND,PROVIDENCE, SOUTH DAKOTA,PIERRE,VERMONT,MONTPELIER 

1200 DATA VIRGINIA,RICHMOND,WASHINGTON,OLYMPIA,WEST VIRGINIA,CHARLESTON 

1250 DATA WISCONSIN,MADISON,MISSOURI,JEFFERSON CITY 

1500 PRINT "CORRECT" 

1505 N=N+1 

1510 P0KE54296, 15 

1515 P0KE54277,9 

1520 FOR T-1TQ50 ; NEXT 

1525 READ A:READ B 

1530 IF B=-l THEN GOTO 1600 

1540 P0KE54273,A:P0KE54272, B 

1545 P0KE54276,17 

1550 FOR T=1TO50 : NEXT 

1555 P0KE54276,16 

1556 GOTO1515 

1560 DATA 51,97,57,172,64,183,63,149 
1565 DATA -1,-1 
1600 RETURN 

2000 PRINT "WRONG. THE ANSWER IS 

2010 POKE 54296,15 

2015 P0KE54277,0 : P0KE54278,240 

2030 POKE 54273,12 : P0KE54272,143 

2031 P0KE54272,Q 
2035 P0KE54276,17 
2040 FOR T=1TO500 : NEXT 
2045 P0KE54276,16 
2100 RETURN 

3000 PRINT "VERY GOOD - YOU REALLY KNOW YOUR STATES AND CAPITALS" 

3010 FOR X=0TO15 

3015 POKE53280,0 ; P0KE53281,X 

3020 FOR T=1TO100 : NEXT T 

3025 NEXT X 

3030 FOR Y=0TO15 

3035 P0KE53281,1=POKE53280,Y 

3040 FOR T=1TO100 ; NEXT 

3045 NEXT Y 

3090 END 

3100 RETURN 

4000 P0KE53231,5 : POKE53230,5 
4010 FOR T=1TO1000 : NEXT 
4020 P0KE53281,1:POKE53230,6 

4050 PRINT "OK - BUT YOU COULD USE MORE PRACTICE" 

4090 END 
4100 RETURN 

5000 POKE53280,0 : P0KE53281,0 
5010 FOR T=1 TO 2000:NEXT 
5020 POKE53280,3:P0KE53281,6 

5050 PRINT "YOU NEED TO STUDY STATES AND CAPITALS" 

5090 END 
5100 RETURN 
6000 PRINT "71" 

6050 PRINT "HOHQOMMMMMl'iELCOME TO" 

6060 PRINT “rtMMETATES AND CAPITALS" 

6080 FOR T=1 TO 2000:NEXT 
6090 RETURN 


Line 5 sets the number of questions asked (Q) and the number correct 
(N) at 0. 

Line 10 dimensions an array of two string variables, 50 in number or 
quantity. 
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— Line 15 restores the DATA after each question is asked. 

— Line 20 reads the DATA in the array, as expressed in the subscript (Z), 
from 1 to 50. 

— Line 30 sets Z as a random integer from 1 to 50. 

— Line 40 tells the program to go to the scoring/ending section of the 
game when 20 questions have been asked. 

— Line 110 compares the input to the answer and sends the program to a 
correct answer subroutine if they are equal. 

— Line 120 sends the program to the wrong answer subroutine if the 
input is not equal to the correct answer. 

— Lines 500 through 1250 are the DATA statements for the array. The for¬ 
mat is just the same for READ-DATA statements. 

— Subroutine 1500 plays a nice musical scale for a correct answer. 

— Subroutine 2000 plays a low descending scale for a wrong answer. 

— Subroutine 3000 rewards you with a color routine for answering cor¬ 
rectly 90% or more of the questions. 

— Subroutine 4000 changes the screen color and an "OK” message 
appears for this satisfactory level of competence — 70 to 90% correct. 

— Subroutine 5000 turns the screen black with a message suggesting a 
need for more study of states and capitals. 


Suggested Program Changes and "Dressing” 

We have included color and sound subroutines in this game. You should 
improve them for yourself. There are a number of ways to adapt this game. 

1. Change the DATA for the states and capitals. Use more data or less 
data. 

2. Change the scoring levels. 

3. Add a title opener to the program. A map of the United States would 
be appropriate. Warning: This will take some serious POKEing about 
to accomplish. 

This is the last educational game that we will use as an illustration. We 
hope you have lots of ideas for games and quizzes now. Some of the ideas we 
would like to suggest include: 

Countries and Capitals 

Continents and Countries 

Inventors and Objects 

HistoricaI Events and Dates 

Mythological Characters 
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Biblical Names 
Diseases and Their Meanings 
Music and Musicians 
Chemical Elements and Their Symbols 
Countries and Their Leaders 
Words and Their Opposite Meanings 
Numbers and Their Spelling 
Roman Numerals and Numbers 
Works of Art and Artists 

In the next chapter on traditional games, we will expand our knowledge 
of BASIC programming while continuing to have fun. 




I 
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For our purposes, Traditional Games are those games that have been 
played for years using dice, cards, paper and pencil, or game boards. In this 
chapter, we will look at four such games and change them so that they can be 
played with your Commodore 64. Using these games as models, you should 
be able to create or adapt your own traditional games. Let's begin with a very 
easy one. 


GUESSING GAME 


One of the oldest and simplest of the traditional computer games is the 
Guessing Game. In Guessing Game, you can guess colors, sounds, numbers, 
or just about anything else you might want to try. Regardless of what is 
guessed, the program will be about the same. The computer picks a number, 
a color, or whatever by using the Random Number function. You try to guess 
the computer's pick using the Input statement. The computer checks to see if 
you guessed correctly or incorrectly and lets you know the outcome. 



5 REM*** GUESSING GAME *** 

10 TRV»0 : C=53281 
20 PR I NT "T 
30 X»INT<RND<1)*8)+1 

40 PRINT M WM)CID1PICK a color using the commodore COLOR KEYS 11 
50 PRINT■PRINT:INPUT Y$ 

60 TRY*=TRY+1 

70 PRINT"THAT WAS TRY NUMBER ".TRY 
80 IF X*VflL<Y*) THEN GOSUB 100 
90 IFXOVAL < Y*) THEN GOSUB 200 

100 PRINT"YOU GUESSED CORRECTLY. NOW WATCH THE COLOR" 

105 FOR T=1TO1000 ; NEXT T 
110 IFY*= ,, r i THEN POKEC.0 
115 IFY$="2" THEN POKEC,1 
120 IFY$="3" THEN P0KEC.2 
125 IFY$="4" THEN P0KEC.3 
130 IFY*="5" THEN P0KEC.4 
135 IFY$="6" THEN P0KEC.5 
140 IFY*="7" THEN P0KEC.6 
145 IFY$="8" THEN P0KEC.7 
150 FOR T=1TO1000 : NEXT T 
155 P0KEC.6 

160 PRINT "IT TOOK YOU" J TRY;"TRIES" 
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170 FOR T=1TO1500 : NEXT T 
180 GOTO 10 
190 RETURN 

200 PRINT "SORRY; TRY RGRIN" 
210 FOR T=1TO1000 : NEXT T 
220 GOTO 40 
230 RETURN 


Although the game is a simple one, it has the components for some very 
playable guessing games. The computer selects a random number from 1 to 8 
(line 30). You select one of the color keys (actually, keys 1 to 8). If the value of 
your input, VAL(Y$), is equal to the random number generated, then the pro¬ 
gram moves to the subroutine at line 100. If the number was not equal to the 
"value of Y$", then the program moves to the subroutine at line 200. 

You can change the game to play other guessing games, such as Sounds 
or Numbers. If you want to guess a number from 1 to 100, you should change 
the following lines: 

30 X - I NT(RND < 1 >* 1001+ 1 
50 INPUT Y 
30 IF N = Y THEN G0SUE 
90 I F N>Y THEN GOSUB 
95 I FX<Y THEN GOSUB 

We leave the rest to you. Try this number-guessing game on your own. 

TIC-TAC-TOE 


Let's try another favorite game, Tic-Tac-Toe. Instead of paper and pencil, 
you play on the display screen. Enter the program and we will show you how 
to play. This game requires two players. 

5 REM ### TIC TRC TOE #** 

10 PR IHT n rilMDHDIZKIKDaiaaaPURV TIC TRC TOE ON THE KEYE0RRD" 

20 PRINT")Sa>»rrO STOP the grhe - PRESS THE SPRCE ERR" 

30 FOR Z=1024TO2023 : P0KEZ;214 : POKEZ+54272,5 : NEXT 
60 PRINT"^" 

70 S=1024■C=55296 

80 FOR G=1264 TO 1284 ; P0KEG; 160 ■' POKEG+54272, 0 ; NEXT 

90 FOR G=1544 TO 1564 ; PQKEG;160 : POKEG+54272,0 : NEXT 

100 FOR G=1030 TO 1790 STEP40 : P0KEG,160 : POKEG+54272,0 : NEXT 

110 FOR G=1037 TO 1797 STEP40 : POKEG,160 : POKEG+54272,0 : NEXT 

120 POKES;1:P0KES+1;61:POKES+2;87:POKEC;0:POKEC+l;0:POKEC+2;0 

130 POKES+40; 2 : POKES+41; 61: POKES+42, 86 : POKEC+40; 0: POKEC+41,0 = POKEC+42; 0 

140 POKES+7; 3 : POKES+3,61 = POKES+9; 87 : POKEC+7.. 0 : POKEC+8; 0 ■ POKEC+9; 0 

150 POKES+47,4 = POKES+48;61=POKES+49; 86 : POKEC+47; 0■POKEC+48;0:POKEC+49;0 

160 P0KES+14;5 : POKES+15;61 : P0KES+16;87:POKEC+14;0:POKEC+15;0 ; P0KEC+16;0 

170 POKES+54; 6 : POKES+55,61' POKES+56; 86 : POKEC+54, 0 ■ POKEC+55; 0 : POKEC+56; 0 

180 POKES+280;7:POKES+281;61:POKES+282; 87 : POKEC+280;0 = POKEC+281;0■POKEC+282;0 

190 POKES+320; 8 • POKES+321; 61 : POKES+322, 86 : POKEC+320; 0 • POKEC+321; 0 ■ POKEC+322; 0 

200 POKES+287; 9 = POKES+288; 61 ■ POKES+289; 87 : POKEC+287,0 : POKEC+288.- 0 : POKEC+239,0 

210 POKES+327,10:POKES+328,61:P0KES+329; 86:POKEC+327,0 = POKEC+328,0 ; POKEC+329,0 

220 POKES+296;11:POKES+297,61:POKES+298,87 : POKEC+296;0:POKEC+297;0:POKEC+298,0 

230 POKES+836, 12 : POKES+337; 61 : POKES+338,86 •' POKEC+336,0 = POKEC+337,0 : POKEC+338,0 

240 POKES+560; 13 ■’ POKES+561; 61 : POKES+562; 87 = POKEC+560,0 : POKEC+561,0 = POKEC+562,0 
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250 

260 

270 

280 

290 

300 

310 

320 

330 

350 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 


POKES+600 , 14 : POKES+601,61:POKES+602,86:POKEC+600,0:POKEC+601,0 ; POKEC+602,0 
POKES+567,15-POKES+568,61=POKES+569,87:POKEC+567,0 : POKEC+563,0 : POKEC+569,0 
POKES+607,16 = POKES+608,61■POKES+609,36:POKEC+607,0:POKEC+608,0 : POKEC+609,0 
P0KE3+574,17:POKES+575,61:POKES+576,87:POKEC+574, 0:POKEC+575,0 : POKEC+576,0 
POKES+614, 18 ■' POKES+615,61 : POKES+616, 86 : POKEC+614,0 : POKEC+615,0 : POKEC+616,0 
fi$=CHR$(65) :E$=CHR*C66) : C$=CHR$<67> : D$=CHR$<;68) : E*=CHR$<69> 

F*«CHR*<70):G*=CHRt<7n:H*=CHR*<72> : I*=CHR*<73>:J*=CHR*<74>:K*=CHR*<75> 
L*=CHR$<76) : f1$=CHR$ (77)=N*=CHR*(78):0$=CHR$<79) : P$=CHR$(80) 

Qt=CHRt(81 )■ Rt=CHR*<82):S*=CHR$<32) 

GET X$ : IFX$—""THEN GOTO350 

IF X$=flS THEN POKES+123,15 : POKEC+123, 1 

IF X$=B* THEN POKES+123,86:POKEC+123, 1 


IF X$=C$ THEN POKES+130,15 : POKEC+130, 1 
IFX*=D$ THEN POKES+130,86:POKEC+130, 1 
IFX$=E$ THEN POKES+137,15 = POKEC+137, 1 
IFX$=F* fHEN POKES+137,86:POKEC+137, 1 
IFX$=G$ THEN POKES+403,15:POKEC+403, 1 
IFX$=H* THEN POKES+403,86-'POKEC+403, 1 
IFXt^lS THEN POKES+410,15 : POKEC+410, 1 
IFX*=J$ THEN POKES+410,86:POKEC+410, 1 
IFX*=K$ THEN POKES+417,15 : POKEC+417, 1 
IFX*=>L* THEN POKES+417,36 : POKEC+417, 1 
IFXt=M$ THEN POKES+683,15:POKEC+683,1 
IFXS»NS THEN POKES+683,86:POKEC+683, 1 
IFXS-OS THEN POKES+690,15:POKEC+690,1 
IFX$»PS THEN POKES+690,86 : POKEC+690, 1 
IFX$«QS THEN POKES+697,15:POKEC+697,1 
IFXS-R* THEN POKES+697,86:POKEC+697, 1 
IFX$-SS THEN GOTO 10 
GOTO 350 
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— Lines 10 through 30 set up the instructions and the introductory frame. 
— Lines 80 through 110 set up the Tic-Tac-Toe "grid." 

— Lines 120 through 290 tell you what letters represent an "X" and an 
"O" for each of the boxes. 

— Lines 300 through 330 define the input you can make on the keyboard. 
— Line 350 asks you to input from the keyboard. 

— Lines 410 through 550 plot either an "X” or an "O" in one of the nine 
Tic-Tac-Toe blocks. 

— Line 560 tells the program to start over with a clean slate if the space bar 
is pressed (CHR$32). 

The game can be simplified by reducing the grid size, including the "X" 
and "O" instructions in a PRINT command but, then, the actual ease of play 
would be less. 


TED AND DAVE'S CASINO 


How about a little gambling for you older folks? At your command, the 
Commodore 64 will roll the dice. You begin play with $10.00. If you roll a 7 or 
an 11, you win $2.00. If you roll less than a 4 or if you roll a 12, you lose $2.00. 
If any other number comes up, the house takes $1.00 for the roll. Enter the 
program, play with it, and adapt it to suit yourself. 
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10 REM *** TED AND DAVE'S CASINO ##* 

20 GOSUB 5000 
30 M=M+10 
40 S=1024 : C=55296 
80 PR I NT ".T 

100 INPUT "PRESS RETURN TO ROLL THE DICE!";X$ 

110 GOSUB6000 
200 LD=INT<RND<1>*6>+1 
210 IFLD=1 THEN GOSUB 500 
220 IFLD=2 THEN GOSUB 550 
230 IFLD=3 THEN GOSUB 600 
240 IFLD-4 THEN GOSUB 650 
250 IFLD=5 THEN GOSUB 700 
260 IFLD=6 THEN GOSUB 750 
300 RD=INT <RND(1}#6)+1 
310 IFRD=1 THEN GOSUB 800 
320 IFRB=2 THEN GOSUB 850 
330 IFRD=3 THEN GOSUB 900 
340 IFRB=4 THEN GOSUB 950 
350 IFRD=5 THEN GOSUB 1000 
360 IFRD=6 THEN GOSUB 1050 
378 PRINT LD,RD 

380 IFLD+RD=7 OR LD+RD=11 THEN M=M+2 
410 IFLD+RDC4 THEN M=M-2 

420 IFLD+RD=4ORLD+RB=5ORLD+RD=6GRLD+RD=8ORLD+RD=9ORLD+RD=10 THEN M*M-1 
430 PRINT PRINT"VOU NON HAVE "M" DOLLARS" 

440 IFMC1 THEN GOSUB 3000 
450 IFM>20 THEN GOSUB 4000 
460 FOR T=1TO2090 ; NEXT 
470 GOTO30 

500 POKES+661.81 POKEC+661,0 
540 RETURN 

550 FOKES+620,81■POKEC+629,0■POKES+702,81POKEC+702,0 
590 RETURN 

600 GOSUB500 : GOSUB550 
640 RETURN 
650 GOSUE550 

660 POKES+622,81 : POKEC+622,0■POKES+700,31:POKEC+700,0 
690 RETURN 

700 GOSUB500:GOSUB650 
740 RETURN 
750 GOSUB650 

760 POKES+621,81 : POKEC+621 , 0 : POKES+701,81 : FOKEC+701,0 
790 RETURN 

800 PQKES+748,81 : POKEC+748,0 
840 RETURN 

850 POKES+707,81:POKEC+707,0 ■ POKES+789,81:POKEC+739,0 
890 RETURN 

900 GOSUB800 ; GOSUB350 
940 RETURN 
950 GGSUB350 

960 POKES+709,S1:POKEC+709,0:POKES+787,81=P0KEC+7B7, 0 
990 RETURN 

1000 GOSUB800 ■' GOSUB950 
1040 RETURN 
1050 GOSUB950 

1060 POKES+708,81 : POKEC+70S,0 : P0KES+7S3,81-POKEC+788,0 
1090 RETURN 

3000 REM ** LOSING SUBROUTINE 

3010 P0KE54296,15 

3020 P0KE54277,9 

3030 FOR T =1TO50 : NEXT 

3040 READ A 

3050 READ B 

3060 IF B=-1 THEN GOTO3150 
3070 P0KE54273, A : P0KE54272, E 
3080 P0KE54276,17 
3090 FOR T=1TO50 : NEXT 
3100 P0KE54276,16 
3110 GOTO 3020 

3120 DATA68,149,64,188,57,172,51,97,45,198,43,52,38, 126,34,75 
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3130 DRTfl-1 j-1 

3150 PRINT"MWWNOU VOU HAVE LOST ALL YOUR MONEY. CASINO IS CLOSED" 

3160 END 
3190 END 
3199 RETURN 

4000 REM m WINNING SUBROUTINE 

4010 PRINT"MMM»i'OU HAVE WON TOO MUCH MONEY. TED AND DAVE'S CASINO IS CLOSED. 11 
4020 FOR T=1TO3000 : NEXT 
4190 END 
4199 RETURN 

5000 REM ** OPENING SUBROUTINE 

5010 PR I NT" 7MKISKWELCOME TO TED AND DAVE'S CASINO" 

5020 PRINT"MSKNQU HAVE 10 DOLLARS TO PLAY WITH - TRY YOUR LUCK" 

5030 PRINT"ROLL 7 OR 11 AND YOU WIN $2" 

5040 PRINT 1 'ROLL LESS THAN 4 OR ROLL fi 12 AND YOU LOSE *2" 

5050 PRINT"ANY OTHER ROLL AND YOU LOSE *1" 

5060 FOR T=1TO2500 : NEXT 

5070 FOR Z=1024 TO 2023 : POKEZ,133 ; P0KEZ+54272;5 : NEXT Z 
5199 RETURN 

6000 REM *** DICE OUTLINE 

6010 P0KE5+579,85 = POKEC+579,0:FOKES+530,64 = POKEC+580,0 
6020 POKES+581,64■POKEC+581,0:POKES+582,64:POKEC+582,0 
6030 POKES+583;73:POKEC+533,0:POKES+619,66:POKEC+619,0 
6040 PGKES+623,66 = POKEC+623,0 = POKES+659,66•POKEC+659,0 
6050 POKES+663,66:POKEC+663,0:POKES+699,66:POKEC+699,0 
6060 POKES-K703,66 ■ POKEC+703,0 = POKES+739,74 : POKEC+739, 0 
6070 POKES+740,64:POKEC+740,0 = POKES+741,64:POKEC+741,0 
6080 POKES+742,64:POKEC+742,0:POKES+743,75 ; POKEC+743,0 
6090 POKES+666,85-POKEC+666,0:POKES+667,64:POKEC+667,0 
6100 POKES+668,64 = POKEC+668,0:POKES+669,64:POKEC+669,0 
6110 POKES+670,73:POKEC+670,0:POKES+706,66:POKEC+706,0 
6120 POKES+710,66 : POKEC+710,0 : POKES+746,66:POKEC+746,0 
6130 POKES+750,66:POKEC+750,0■POKES+786,66 = POKEC+786,0 
6140 POKES+730,66:POKEC+790,0:PGKES+826,74:POKEC+826,0 
6150 FOKES+827,64:POKEC+827,0:POKES+828, 64 = POKEC+828,0 
6160 POKES+829,64:POKEC+829,0:POKES+830 > 75 = POKEC+830,0 
6999 RETURN 


— Line 30 gives you ten dollars to bet with. 

— Lines 200 and 300 "Roll the dice." They define the left die (LD) and 
right die (RD) as integers from 1 to 6. 

— Lines 210 through 260 and 310 through 360 send the program to the 
appropriate subroutines to plot the dice faces. 

— Lines 380 through 420 define the scoring conditions. 

— Subroutines 500 through 1050 POKE the faces of each die on the 
screen depending upon the value of LD and RD. 

— Subroutines 3000 plays a descending scale for a losing player and ends 
the game. 

— Subroutine 4000 ends the game when the player has won twenty dol¬ 
lars or more. 

— Subroutine 5000 opens the game with instructions and some graphics. 

— Subroutine 6000 plots the outline of the dice. 

Some of the ways to adapt the game are listed below: 

1. Include sound each time the dice are rolled. 

2. Change the win/lose conditions for the game, such as 

IF LD = RD THEN M = ri + 2 
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which gives the player two dollars for rolling doubles. 

3. Add more color and sound for signaling the end of the game. 

When you are tired of losing your shirt gambling, try the next game, a friendly 
little game of HANGMAN. 


HANGMAN 


The Commodore plays you in HANGMAN. Guess the secret word in the 
least number of tries and you avoid "hanging/' When you guess the word 
correctly, a person appears with a "THANKS!" message. If you don't guess 
the word correctly, he is hung. 



10 REM *** HANGMAN 
20 PRINT"nCUWiMI«JELCOME" 

30 PRINT"IMMirO" 

40 PR I NT " IMMHANGMAN" 

50 GOSUB1-000 : GOSUB1200 
60 FORT=1TO3000:NEXT 
70 X=INTCRNIK1)#10) + 1 
80 FGRA=1TGX 
90 READ ft$ 

108 NEXT A 
110 N=LEN(R$> 

120 FOR A*1T0N 

130 L(fl)=flSC(MIB*(A$,fl, 1)) 

140 OCfl>=LCA) 

150 NEXT A 
160 T=N+4 

170 PRINT'TXjUESS THIS WORD IN ”T” TRIES" 

180 FOR S=1T0T 

190 GOSUB 450 

200 IFC-N THEN 340 

210 PRINT T+l-S" TRIES TO GO!" 

220 INPUT 
230 X=ASCCX$> 
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240 F0RA=1T0N 

250 IFO<fl>=X THENO<fl)=0:S=S-l 

260 NEXT ; NEXT 

270 GOSUB450 

280 FORT=1TO2000:NEXT 

290 PRINT' 1 23" 

300 PRINT : PRINT"VOU LOSE! TO THE CALLOWS WITH VOU!" 

310 OOSUB 1000=GOSUB1200 
320 GOTO600 

340 PRIHT’TJt'OU GOT IT! NO HANGING TODAV" 

350 PRINT"THE WORD IS "A$ 

360 GOSUB1000 

380 END 

390 DATA"WAKE","RIDDLE","TOUCH","EXTRA", "JOKE","PLEASANT 
400 BATA"COWARB","TOOLKIT","DELAY","SIMPLEST" 

450 0=0 ; PRINT"M" 

460 FORZ=lTON 

470 IFLC2XKZ) THEN PRINT"*"; 

480 IFLCZ)OO(Z> THEN PRINT CHR$<L(Z)); ■ C=C+1 
490 NEXT : PRINT : PRINT 
500 RETURN 

600 PRINT"TOUGH LUCK" 

610 PRINT"THE WORD IS "A$ 

620 F'RINT l, :PlflIl!IWPM!!I«PlPl?>MM»M**»»>MFAArnH' 1 
690 END 

1000 REM *** MAN 
1010 S=1024 : 0=55296 

1020 POKES+707,87 : POKEC+707,1:PQKES+746,78:POKEC+746,1 

1030 POKES+747,160 : POKEC+747,1:POKES+748,77 = POKEC+748,1 

1040 POKES+787,116:POKEC+787,1=P0KES+73S, 116 = POKEC+788,1 

1099 RETURN 

1200 REM *** GALLOWS 

1210 S=1024-0=55296 

1220 POKES+627,160 : POKEC+627,0 : POKES+628, 160:POKEC+628,0 

1230 POKES+629,160:POKEC+629,0 : POKES+630, 160 = POKEC+630,0 

1240 PQKES+669,95:POKEC+669,0:POKES+670,160:POKEC+670,0 

1 250 PGKES+7 10 , 160 : poKEC+7 1 0,0 : POKES+750, 1 60 ■' POKEC+750, 0 

1260 POKES+790,160:POKEC+790,0 = POKES+829, 160:POKEC+829,0 

1270 POKES+330, 160 : POKEO+830,0 P0KES+S31,160 = POKEC+831,0 

1280 POKES+667,80 : POKEC+667, 0 

1300 FOR V=15TO0STEP-1 

1310 P0KE54296,V ; P0KE54277,9 

1320 P0KE54273,40:P0KE54272,200 

1330 P0KE54276,129 

1340 FORT =1T050 ; NEXT 

1350 P0KE54276,128 

1360 NEXT V 

1399 RETURN 


— Line 70 defines X as a random number from 1 to 10 (10 being the num¬ 
ber of words in the DATA statement). 

— Line 110 defines N as the number of characters in the word read from 
the DATA statement. 

— Line 130 sets the array L(A) as the ASCII code of any one letter in the 
word. 

— Line 160 defines T as the length of the word plus four more. 

— Line 200 sets a condition that if the number of correct letters (C) equals 
the number of letters in the word (N), the game is successfully com¬ 
pleted. 

— Line 210 reduces the number of tries (T) for each incorrect guess. 

— Line 220 asks you to input a letter guess. 

— Line 250 sets the condition that if a correct letter is guessed (X), then the 
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value in the array O(A) is set at 0. This allows the correct letter to be 
printed amid the dashes. S is reduced by one, meaning that the num¬ 
ber of tries is not reduced when a correct letter is guessed. 

— Lines 290 through 320 set up the losing condition for HANGMAN. 

— Lines 340 through 380 set up the winning condition for HANGMAN. 

— Line 450 sets the number of correct letters at 0 (zero). 

— Line 470 checks to see if any letters in A$ have been selected. If each 
character in the array L(Z) equals 0(Z), then a star is printed. 

— Line 480 checks to see if any letters have been selected in A$. If a cor¬ 
rect letter has been selected, L(Z) is no longer equal to 0(Z) and the pro¬ 
gram prints the correct letter in the right space. The number that is 
correct increases by one for each correct letter. 

— Lines 600 through 690 set up the losing condition for HANGMAN. 

— Subroutine 1000 draws the person on the screen. 

— Subroutine 1200 draws the gallows and POKEs a losing sound routine 
as well. 

We hope you have enjoyed the games in this chapter. Review how the 
answer conditions were treated differently in the CASINO and HANGMAN 
games. Try some of your own favorites and use our games as models. We use 
some of the logic contained here forthe arcade-type games in our next chap¬ 
ter. Let's play some ARCADE GAMES now. 
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Creating arcade games can be a lot of fun, but can be extremely frustrat¬ 
ing if you are not careful. Begin with simple games and improve them. We 
wrote the games in this chapter by planning the simple game logic (car driv¬ 
ing up screen, creature moving through maze, etc.) and then adding color, 
sound, scoring, and other enhancements. We hope you enjoy these arcade 
games. 


SAUCER BLASTER 


Two spacecraft appear on the screen; the left being the escort ship and the 
right being the enemy saucer. You shoot your missile from the green "silo" by 
pressing function key 1 (FI). If you hit the enemy saucer, you earn 25 points. If 
you accidentally hit the friendly escort ship, you lose 15 points. 



10 REM **# SAUCER BLASTER *** 

20 GOSUB 1000 
30 PRINT "13" 

50 y*0: X*0: ZX*1 •' C=2004 : R=0 

60 POKE2002,160: POKE2003,160: POKE2005,160: P0KE2006, 160 
70 P0KE56274, 5: P0KE56275,5 : P0KE56277,5: P0KE56278,5 
75 S»0 

80 PRINT"MOT"R 
90 K*PEEK(197) 

100 IFK-4 AND S=0 THEN S=1 
110 IFSO0 THEN GOSUB 500 

120 P0KE1193+X+40*Y,32:P0KE1194+X+40*Y,32:P0KE1194+X+40*Y,32 
125 POKE55465+X+40*Y, 0: POKE55466+X+40*Y, 0: POKE55467+X+40*Y, 0 
130 POKE1203+X+40*Y,32:POKE1204+X+40*Y,32:POKE1205+X+40SY,32 
135 POKE55475+X+40*Y,0:POKE55476+X+40*Y,0 : POKE55477+X+40*Y,0 
150 X=X+ZX 

160 IFX--9 OR X=18 THEN 2X=-ZX 

180 P0KE1193+X+40#Y,74 : P0KE1194+X+40*Y,98 : P0KE1195+X+40$Y,75 
185 POKE55465+X+40*Y, 7 : POKE55466+X+40SY, 7 : POKE55467+X+40*Y, 7 
190 POKE 1203+X+ 40#Y, 107: POKE1204+X+40*Y, 81 = POKE1205+X+40*Y, 115 









Arcade Games 131 


195 POKE55475+X+40#V,1=POKE55476+X+40#V, 1=PGKE55477+X+40#V, 1 
200 GOTO90 

500 IF S=1 THEN POKEC, 30 ■’POKEC+54272, 1 =3=2 = RETURN 
510 POKEC;32 

520 IFS=24 THENS=0 : C=2004 : RETURN 
530 C=C-40 : S-S+l 

540 IF PEEK(C)=10? OR PEEK(C>=S1 OR PEEK<C)=115 THEN GOSUB 800 
550 IF PEEK(C>=74 OR PEEKCC)=98 OR PEEK(C>=?5 THEN GOSUE 900 
560 POKEC, 30 '■ POKEC+54272, 1 
590 RETURN 

800 REM ** HIT SPFlCECRflFT 
810 8=0: POKEC, 86 ■’ POKEC+54272, 1 

820 P0KE54296,15-P0KE54273,51 : P0KE54272, 9? = PQKE54277,9 

830 P0KE54276,17 

840 FOR T=1TO150 ; NEXT 

850 P0KE54276,16 

830 POKE54296.0 

890 R=R+25 ; PRINT" IT R 

895 C=2004 

899 RETURN 

900 REM *# HIT ESCORT SHIP 

910 P0KE54296,15:P0KE54273,72■P0KE54272.169-P0KE54277,9 : P0KE54278,9 

920 P0KE54276,129 

930 FOR T=1TO150 : NEXT 

940 P0KE54276,128 

950 P0KE54296;0 

990 R=R-15 : PRINT"n M R 

999 RETURN 

1000 REM m OPENING 
1005 PRINT":]' 1 

1010 FOR X=15 TO 0 STEP-1 
1020 P0KE53281.X 
1030 FOR T=1TO90 : NEXT 
1040 NEXT X 

1050 PRINT ,, nro(BWD»»»»»ISfiUCER BLASTER" 

1060 PRINT"*WMI PRESS FI TO FIRE” 

1080 FOR T=1 TO 2500 : NEXT 
1090 RETURN 


— Lines 60 and 70 POKE the silo green. 

— Line 90 asks the program to see if a key is being pressed. 

— Line 100 states that if function key 1 (FI) is pressed, then S is set at 1. 

— Line 110 calls subroutine 500 if S is not equal to zero. 

— Line 120 POKEs the enemy saucer blank space. 

— Line 130 POKEs the friendly escort ship blank space. 

— Line 150 starts movement of the two spacecraft. 

— Line 160 tells the program to reverse direction if the escort ship gets too 
close to the left side or if the enemy saucer gets too close to the right 
side of the screen. 

— Lines 180 and 185 POKE the escort ship. 

— Lines 190 and 195 POKE the saucer. 

— Line 500 POKEs the missile if S is equal to 1. 

— Line 520 tells the program to reset the missile at the bottom when 
S = 24 (the missile reaches the screen top). 

— Lines 540 and 550 define the hit conditions for the escort ship and the 
saucer. 

— Subroutine 800 adds 25 points to the score for hitting the saucer and 
plays a "reward" sound routine. 
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— Subroutine 900 subtracts 15 points from the score and plays a "punish¬ 
ment” sound routine for hitting the escort ship. 

— Subroutine 1000 opens the game with some color and directions. 

Saucer Blaster has all the elements of a good arcade game — graphics, 
animation, color, sound, and a scoring mechanism. Change some of the lines 
in this program to improve it. One of the best ways to test your understanding 
of this game's logic is to change it to a horizontal game. Have the ships move 
up and down the screen with the missile firing across. Or, change the missile 
into bombs being dropped down the screen. 


POTHOLE DERBY 

The object of this game is to drive the car (^) up the road avoiding the 
potholes and the side of the road. You can control the car by use of the func¬ 
tion keys: 

Press FI The car moves left. 

Press F3 The car moves right. 

You are given three laps on this road. The score is computed by: 

+ 20 For reaching the top of the road. 

- 5 For hitting a pothole. 

- 10 For running off the side of the road. 

In scoring, 60 is a perfect score. 



5 REM **■* POTHOLE DERBY *** 

10 S=0:GOSUB800 
15 FOR L=1T03 
20 PRINT"O" 

30 GOSUB700:GOSUB500■GOSUB600 
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40 R=0 : F1=4 ; F3=5 : F0=64 
60 FORE=0TO-23STEP-1 
70 K=PEEKC197) 

30 IF K=F1 THEN A=A-1 
90 IF K=F3 THEN R=fl+1 

100 IF PEEKC2004+R+40#B>=118 THEN GOSUB 400 

110 IF PEEKa2004+R+40*B)=117 THEN GOSUB 400 

120 IF PEEK<2004+fl+40#B)=37 THEN GOSUB 300 

140 IF B=~23 THEN S=S+20 

180 POKE2004+A+40*B.90 

190 POKE56276+A+40#B.2 

200 FOR T=1TO100:NEXT 

210 POKE2004+A+40#B,32 

260 NEXT E 

270 NEXT L 

290 PRINT' , n«HSIl)W»»»lSS^OUR FINAL" 

292 PRINT'JMHSWSCORE IS" 

294 PRINT'JMHW'S 

299 END:ROKE54296,0 

300 REM##HIT POTHOLE 

305 P0KE54296,15 = P0KE54273.34 = P0KE54272.75 

310 P0KE54277,9 

315 P0KE54276.129 

320 FORT=1TO80 : NEXT 

330 P0KE54276.123 

380 S=S-5 

399 RETURN 

400 REM**HIT SIDE OF ROAD 
410 P0KE54296.15 

420 P0KE54276.129 

430 P0KE54273.54:P0KE54272. Ill 

440 P0KE54277 , 9 : P0KE54278 , 24 

450 F0RT-1T075 : NEXT 

460 P0KE54276,128 

480 S*S-10 

499 RETURN 

500 REM**RORD BORDER 

510 FORZ=1039TO1999STEP40:POKEZ.118:POKEZ+54272,6:POKEZ+8.117:POKEZ+54280,6 

520 NEXT Z 

550 RETURN 

600 REM**POTHOLES 

610 FOR V-1TO100 

620 J=INT<RHD<0>*40) 

630 K=INT(RNDC0)*22) 

640 G=1024+J+40*K 

650 IFJM5RNDK23THENP0KEG. 87: POKEG+54272.4 
660 NEXT V 

699 RETURN 

700 PRINT"WMSCORE" 

710 PRINT"rt»rS 
720 RETURN 

800 REM##OPENING FRAME 
310 P0KE53281.1 

820 PRINT'LTHHaSMiaiWELCOME TOSS" 

830 PR I NT 11 IMSISepQT HOLE DERBYSS" 

340 FOR T-lTO1000 ; NEXT 

850 PR I NT 11 XDWMSFRESS FI TO MOVE LEFT" 

360 PRINT"WMFRESS F3 TO MOVE RIGHT" 

870 FORU=1024TO2023:POKEU.214:POKEU+54272.4:NEXT 
899 RETURN 


You can increasethedifficultyofthe game easily by changingthe number 
of potholes in line 610. Change line 15 if you want more laps or fewer laps. 

— Line 15 sets up the 3 laps for the pothole derby. 

— Line 60 starts movement of the car up the screen. 

— Line 70 asks if a key is being pressed. 
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— Line 80 checks to see if function key 1 (FI) is pressed, and then the car 
moves to the left. 

— Line 90 checks to see if function key 3 (F3) is pressed, and then the car 
moves to the right. 

— Line 100 tells the program if the car has hit the left-hand side of the 
road. 

— Line 110 tells the program if the car has hit the right-hand side of the 
road. 

— Line 120 tells the program if the car has hit a pothole. 

— Line 140 checks to see if the car has reached the screen top. 

— Lines 180 and 190 POKE the car into position. 

— Line 210 erases the car. 

— Lines 290 through 299 end the game with a final score. 

— Subroutine 300 subtracts 5 from the score and plays a sound. 

— Subroutine 400 subtracts 10 from the score and plays a sound for hit¬ 
ting the roadside. 

— Subroutine 600 plots potholes in the road. 

— Subroutine 700 keeps track of the score as the game progresses. 

— Subroutine 800 welcomes you to POTFHOLE DERBY with directions 
and some graphics. 



ASTEROID SHOWER 

Using the same program logic as in Pothole Derby, we can create an 
entirely different arcade game, Asteroid Shower. You are a space ship clean¬ 
ing space of asteroids. Each time you remove an asteroid, you earn 10 points. 

You only have the "time warps" to fear. If you accidentally touch them, 
you lose 20 points. You have four turns to clean the skies of all the asteroids. 







Arcade Games 


135 


You control the space ship with the function keys: 

FI Moves the ship to the right. 

F3 Moves the ship to the left. 

F5 Jumps the ship 5 spaces to the right. 

F7 Jumps the ship 5 spaces to the left. 

5 REM *** RSTEROID SHOWER 

10 S=0 = PRINT" n" ■ P0KE53231,0:POKE53280, 0 = GOSUB500:GOSUB600 

30 PRINT'IMfiSTEROID SHOWER" 

40 FOR T=1 TO 2000 : NEXT 
50 PRINT"H" : GOSUE500 : GOSUB600 
70 FOR R=1T04 
S0 X=0 

90 FOR Y=0TO24STEP1 
100 F1=4 : F3=5 : F5=6 ; F7=3 
110 K=PEEK(197> 

120 IFK=F1 THEN X=X+1 
130 IFK=F3 THEN X=X-1 
140 IFK=F5 THEN X=X+5 
150 IFK=F7 THEN X=X-5 

160 IF PEEK<1043+X+40*Y)=42 THEN GOSUB 800 
170 IF PEEKU044+X+40#Y)=42 THEN GOSUB 300 
180 IF PEEKU045+X+40*Y)=42 THEN GOSUB 800 
190 IF PEEK<1043+X+40*Y>=102 THEN GOSUB 900 
200 IF PEEK<1044+X+40#Y)=102 THEN GOSUB 900 
210 IF PEEK<1045+X+40#Y)=102 THEN GOSUB 900 

220 POKE1043+X+40*Y,107 = POKE1044+X+40*Y, 81:POKE1045+X+40*V,115 
230 GOSUB 1000 

240 POKE1043+X+40*V,32:POKE1044+X+40*Y,32:POKE1045+X+40#Y,32 
250 NEXT V 
260 NEXT R 

270 PRINT"mSWHWYOUR FINRL SCORE WRS "S 
230 END 

500 REM#*RSTEROIDS 

510 FOR Q=1TO90 

520 V*1144+INT<RND(1)#800) 

530 POKEVj 42 : POKEV+54272.- 2 

540 NEXT Q 

550 RETURN 

600 REM**TIME WRRPS 

610 FOR W=1TO10 

620 V=1144+INT<RND(1)#800; 

630 PQKEV*102 : POKEV+54272/7 
640 NEXT W 
650 RETURN 

800 REM##TRKE RSTEROID 

810 P0KE54296,15:P0KE54273,61:P0KE54272, 126 = P0KE54277,9 

820 P0KE54276;65 = P0KE54275,15 = P0KE54274,150 

830 FORT =1TO50 : NEXT 

840 P0KE54276,64 

880 3=3+10 

890 PRINT'TMSSSrS 

899 RETURN 

900 REM#*HIT WRRP 

310 P0KE54273,34■F0KE54272,75■F0KE54277,9 = F0KE54276,129 

930 P0KE54296,15 

940 FOR T=1TO150:NEXT 

950 POKE54296,0 ; POKE54276,128 

980 S=S-20 

990 PRINT'TMSSSrS 

999 RETURN 

1000 FOR T=1TO1000:NEXT 
1099 RETURN 

— Line 10 starts the score at 0 and the program shows you the asteroids 
and time warps. 
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— Line 70 gives the player 4 turns. 

— Line 90 directs movement down the screen. 

— Lines 120 through 150 move the space ship, depending upon what 
function key is pressed. 

— Lines 160 through 180 look to see if an asteroid is hit by the space ship. 
— Lines 190 through 210 look to see if a warp is hit by the space ship. 

— Line 220 POKEs the space ship. 

— Line 240 erases the space ship. 

— Line 250 moves the ship down Step 1 -Y. 

— Line 260 sends the program to the next turn (4 turns). 

— Subroutine 500 POKEs 90 asteroids on the screen. 

— Subroutine 600 POKEs 10 time warps on the screen. 

— Subroutine 800 adds 10 to the score for taking an asteroid. 

— Subroutine 900 subtracts 20 points from the score for hitting a time 
warp. 

You can easily add new ideas to Asteroid Shower. POKE a space station on 
the screen. If the ship lands on the space station for refueling, additional 
points are earned. Hide invisible black holes that take points away from the 
score. Use your imagination and have fun. 



RAT TRAP 

The green rat is trapped in a maze. The object of the game is to score 
points by capturing the prizes (hearts) while not hitting the maze walls. You 
earn 35 points for capturing a prize; 10 points are lost for hitting the wall. The 
rat has two chances to move through the maze. You control the rat with the 
following keys: 
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FI To move up. 

F2 To move down. 

< To move left. 

> To move right. 


5 REM *** RFlT TRRF +** 

10 PRINT"3" :P0KE53281,1 
20 GGSUB1000 : S=0 
30 PR I NT'Tl" 

40 GOSUB 500 : GOSUB 600 
50 FOR A=1T02 
60 X=0 

65 FORV=0TO22STEP1 
70 K=PEEKC197> 

80 IFK=47 THENX=X-1 
90 IFK=44 THENX=X+1 
100 IFK=4 THENY=Y-2 
110 IFK=5 THENV=V+1 

120 IF PEEK<1034+X+40#V)=160 THEN GOSUB 700 

130 IF PEEK<1034+X+40#V>=33 THEN GOSUB 800 

160 POKE1034+X+40*V,222'POKE1034+54272+X+40*V,5 

170 FORT=1TO500 : NEXT 

180 POKE1034+X+40#Y,32 

190 NEXT Y 

210 NEXT fl 

220 PRINT ,> naDH«m>»FINRL SCORE SB" 

230 PRINT" EltlMHI 'S' E 11 

250 END 

500 REM**MAZE 

510 FOR W-1TO120 

520 V=1104+INTCRND<1)*820) 

530 POKEV,160 ; POKEV+54272; 0 
540 NEXT W 

599 RETURN 

600 REM**PRIZES 
610 F0RP=1TO20 

620 V=1104+1NT CRNDC1>#820) 

630 POKEV, S3 ; POKEV+54272^ 7 
640 NEXT P 

699 RETURN 

700 REM##HIT MAZE WALL 

710 P0KE54277,9 = P0KE54278,40:P0KE54296.15-P0KE54273,25 : P0KE54272,0 

720 P0KE54276,129 

730 FORT=1TO500 : NEXT 

740 P0KE54276,128 

730 S=S-10 

790 PRINT ,, n3H ,, S ,, HT 

799 RETURN 

300 REM*#CAFTURE TREASURE 

810 P0KE54277,9:P0KE54278,40:P0KE54296, 15 = P0KE54273, 150■P0KE54272,0 

320 P0KE54276;33 

330 FORT=1TO500 : NEXT 

840 P0KE54276.32 

880 S=S+35 

890 PRINT"n2Si"S"S" 

899 RETURN 

1000 REM##OPENING FRAME 

1010 GOSUB 500 : GOSUB 600 

1020 PRINT"W»MMI3BRAT TRAPS" 

1030 FOR T-1TO1500 : NEXT 

1040 PR I NT" nHHWWMKEY Fl TO MOVE UP" 

1050 PRINT"»»KEY F2 TO MOVE DOWN" 

1060 PRINT"»»KEV < TO MOVE LEFT" 

1070 PRINT"»»KEV > TO MOVE RIGHT" 

1080 FOR T=1TO2500 : NEXT 
1090 RETURN 
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— Line 50 gives the rat two trips through the maze. 

— Line 65 gives a downward movement to the game. 

— Lines 80 through 110 ask if a movement-control key is being pressed. 

— Line 120 asks if the maze wall is hit by the rat. 

— Line 130 asks if the prize is captured. 

— Line 160 POKEs the rat in its starting position. 

— Line 180 erases the rat. 

— Line 220 through 250 end the game with a final score. 

— Subroutine 500 POKEs the maze walls. 

— Subroutine 600 POKEs the yellow prizes on the screen. 

— Subroutine 700 subtracts 10 points from the score for hitting the maze 
wall. 

— Subroutine 800 adds 35 points to the score for capturing a prize. 

You can customize this game further if you like. Hide a cat in the maze to 
chase the rat. Increase the difficulty of the game by adding more maze walls. 

After working with the programs in this chapter, we hope you have 
learned howto successfully putall the Commodore 64 tools together to make 
some enjoyable games. Use our subroutines and programs as examples to 
develop your knowledge of BASIC and to construct your own educational 
and recreational programs. 
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Musical Notes 


A 


Table A-1. Musical Notes in the Fourth and Fifth Octaves 


NOTE 

FIFTH OCTAVE 

FOURTH OCTAVE 

HIGH FREQ 

LOW FREQ 

HIGH FREQ 

LOW FREQ 

C 

34 

75 

16 

195 

C# 

36 

85 

17 

195 

D 

38 

126 

18 

209 

D# 

40 

200 

19 

239 

E 

43 

52 

21 

31 

F 

45 

198 

22 

96 

F# 

48 

127 

23 

181 

G 

51 

97 

25 

30 

G# 

54 

111 

26 

156 

A 

57 

172 

28 

49 

A# 

61 

126 

29 

223 

B 

64 

188 

31 

165 
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Screen Values for POKE 


SET 1 

SET 2 

POKE 

SET 1 SET 2 

POKE 

SET 1 

SET 2 

POKE 

@ 


0 

<- 

31 

> 


62 

A 

a 

1 

| SPACE 

32 

? 


63 

B 

b 

2 

) 

33 

B 


64 

c 

c 

3 


34 


A 

65 

D 

d 

4 

# 

35 

CD 

B 

66 

E 

e 

5 

$ 

36 

B 

C 

67 

F 

f 

6 

% 

37 

B 

D 

68 

G 

g 

7 

& 

38 

B 

E 

69 

H 

h 

8 

' 

39 

□ 

F 

70 

1 

i 

9 

( 

40 

D 

G 

71 

J 

j 

10 

) 

41 

□ 

H 

72 

K 

k 

11 

• 

42 

□ 

1 

73 

L 

1 

12 

+ 

43 

□ 

J 

74 

M 

m 

13 


44 

□ 

K 

75 

N 

n 

14 

- 

45 

□ 

L 

76 

O 

0 

15 


46 

S 

M 

77 

P 

P 

16 

/ 

47 

0 

N 

78 

Q 

q 

17 

0 

48 

n 

O 

79 

R 

r 

18 

1 

49 

n 

P 

80 

S 

s 

19 

2 

50 

m 

Q 

81 

T 

t 

20 

3 

51 

□ 

R 

82 

U 

u 

21 

4 

52 


S 

83 

V 

V 

22 

5 

53 

□ 

T 

84 

w 

w 

23 

6 

54 

□ 

U 

85 

X 

X 

24 

7 

55 


V 

86 

Y 

y 

25 

8 

56 

o 

w 

87 

z 

z 

26 

9 

57 


X 

88 

[ 


27 


58 

ED 

Y 

89 

£ 


28 

\ 

59 

S] 

z 

90 

] 


29 

< 

60 

ffl 


91 

T 


30 | 

= 

61 

E 


92 
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SET 1 SET 2 

POKE 

8ET 1 

8ET2 

POKE 

SET 1 

8ET 2 

POKE 

m 

93 

B 

0 

105 

L 


117 

0 BS 

94 

□ 


106 

□ 


118 

as 

95 

m 


107 

n 


119 


96 

□ 


108 

n 


120 

E 

97 

H 


109 

u 


121 

H 

98 

H 


110 

□ 

v/ 

122 

u 

99 

□ 


111 

. 


123 

□ 

100 

H 


112 

□ 


124 

□ 

101 

H 


113 

H 


125 

m 

102 

H 


114 

E 


126 

□ 

103 

ffl 


115 

H 


127 

H 

104 

□ 


116 





Codes from 128-255 are reversed Images of codes 0-127. 



Memory Maps 


C 


0 


so 


COL UM 

20 


30 


IS 


1065 



J0I3 


0 


10 § 


20 




SCREEN CHARACTER MEMORY MAP 
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COUitM 

10 Zfl M 


55335 



COLOR CODE MEMORY MAP 














































































































Sample Memory Map 
Graph Paper 
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10 20 

o i i i i i i i i i i i i i I I I I I I l~[ 

40 _iiiiiiiinrziiii - 

80 

120 - r~"' 

160 r 

200 

240 ____ ___ 

280 __|_______ 

320 _,_ k _ 

360 ____ 

400 : 1 

440 II~I“ ITU 

480 ___I r_ ____ 

520 ____ 

560 _____ rr _ 

600 _I__ 

640 _,_ IE,_ 

680 _ ZJZ _ 

720:_ 

760 __.____: 

8oo_______ 

840 _ Tit, i 

880,_,_I 

920 _J______ 

960 i 1 1 I i I I I I 1 II I rl I TTTT 




































































ASCII and CHR$ Codes 


E 


CODE 

PRINTS 

CODE 

PRINTS 

CODE 

PRINTS 

CODE 

PRINTS 


son 







124 

HJ 

141 

fl 1 | Mil IIH* | 

158 


175 

u 


m 






B 

125 

142 

■ SWITCH TO ■ 
■UPPER CASf ■ 

159 

JR 

176 

126 

a 

143 


160 

m spAr.t i 

177 

H 

127 

144 


161 

■ 

178 

H 

128 


145 


162 

H 

179 

El 

129 

Orange 

146 

JB1 

163 

n 

180 

D 

130 


147 

fl '■ 

164 

□ 

181 

E 

131 


148 

ffl 

165 

□ 

182 

a 

132 


149 

Brown 

166 

m 

183 

n 

133 

fl 

150 

Lt. Red 

167 

□ 

184 

H 

134 

f3 

151 

Grey 1 

168 


185 

U 

135 

f5 

152 

Grey 2 

169 

E 

186 

□ 

136 

f7 

153 

Lt. Green 

170 

□ 

187 

. 

137 

f2 

154 

Lt. Blue 

171 

m 

188 

H 

138 

f4 

155 

Grey 3 

172 

□ 

189 

H 

139 

f6 

156 


173 

H 

190 

E 

140 

f8 

157 

a 

174 

H 

191 

B 





Codes 

192-223 

same as 

96-127 





Codes 

224-254 

same as 

160-190 





Code 

255 

same as 

126 
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Common Error Messages F 

You will find errors inevitable. We have included here a list of the most 
common errors you may make using this book. For a more complete list of 
error messages, consult your User's Guide or the Commodore 64 Program¬ 
mer's Reference Guide. 


Error Message 

BAD SUBSCRIPT 

BREAK 

EXTRA IGNORED 
ILLEGAL QUANTITY 

NEXT WITHOUT FOR 

OUT OF DATA 
OUT OF MEMORY 


REDIM'D ARRAY 

REDO FROM START 


Probable Cause 

You have dimensioned an array improp¬ 
erly. Look at the range in the DIM state¬ 
ment and check the number of variables 
of elements in the array. 

You stopped the program. Type CONT 
or RUN and the program will start again. 
You typed in too much data in response 
to an INPUT statement. 

The number you have used as part of a 
statement or function is meaningless to 
the computer. 

You have used FOR. . .NEXT loops 
incorrectly. Check to see if the variable 
names match properly. 

You asked the program to READ data, 
but there was none left. 

1. You have depleted the computer's 
memory available to you. 2. The pro¬ 
gram you have written has too many 
subroutines (GOSUB statement) or too 
many FOR. . .NEXT loops. 

You have used the DIM statement wrong 
or you have used an array variable name 
before the variable was dimensioned. 
You typed in letters when the computer 
asked you to input a number. 
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RETURN WITHOUT GOSUB You have used a RETURN statement 

without a GOSUB command. 

?SYNTAX ERROR You have made a simple error in syn¬ 

tax-punctuation or spelling. 

UNDEF'D STATEMENT You sent the program (using GOTO or 

GOSUB) to a nonexistent line number. 



G 


Saving and Leading 
Programs 


You can save the programs in this book or in any that you write by using 
the Datassette recorder or the Commodore VIC-1541 diskdrive. 


USING THE DATASSETTE RECORDER 


In order to save a program on the Commodore 64, follow these two steps: 

1. Use the SAVE command and the program name (which can beupto 16 
characters in length). For example type: 


SAVE "HANGMAN” 


and press 


RETURN 


2. The screen will ask you to "Press play and record on tape" and you 
should press the play and record buttons at the same time. While sav¬ 
ing, the Commodore 64's screen turns blank. You will know when it 
has finished saving; the word "READY” and a blinking cursor appear 
on the screen. 


In order to load a program you have saved, follow the following three 
steps: 

1. Rewind the tape and type 


LOAD "HANGMAN” 


and press 


RETURN 


2. The computer asks you to press play; you should press the Play button 
on the datassette recorder now. 

3. The Commodore 64's screen turns blank. When the program is found, 
it displays 


FOUND HANGMAN 

At this point, you must press the Commodore key (H) to load the pro¬ 
gram. After the program has been loaded, "READING” and that fa¬ 
miliar blinking cursor will appear. 
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USING THE DISK DRIVE 

You must "FORMAT” a diskette before using it. The NEW command you 
use erases anything on the diskette and sets it up with markers and timing. 
This is how you do it: 

PR I NT # 15, !! NEW 0 ; the disk name, ID " 

PR I NT #15 Is the command channel for communicat¬ 

ing with the disk. 

MEN 0 Clears out the directory on the diskette, 

the disk name . Identifies what is on the diskette. 

ID Isa 2-character identification name. 

The FORMAT example is: 

F'R I NT # 15 " NEW 0 : ARCADE GAMES, 10 " and press liUtuaM 

In formatting the diskette in this way, we have erased any programs, named it 
"Arcade games," and given it an ID number of 10. NOTE: You only format a 
diskette once. If you had to reformat the diskette each time, all the programs 
would be erased. 

You must "INITIALIZE" a diskette every time you use it. This is simple to 
do. Type in: 

PR I NT#15, "INITIALIZE” and press 

Remember that every time you put the diskette in the disk drive, you must 
initialize it. 

In order to save a program on the diskette, follow this example. Type in: 

SAUE "HANGMAN" 5 8 and pressESBEJJ 

"FHangman" is the name of the program and the 8 tells the computer to save 
the program on diskette. The computer will tell you that it has done so and 
the "READY" prompt will let you know when you can continue. 

In order to load a program from a diskette, follow this example: 

LOAD "HANGMAN" 5 8 and pressB3H32I 

The computer will tell you it is searching for "HANGMAN" (or whatever 
your program name is), and it will tell you when it is loading, and it will tell 
you when you can use the computer again with the "READY" prompt. 

There are a number of advanced features that can be utilized when using 
the Datassette Recorder or the Disk Drive. Instructions for their use are con¬ 
tained in the reference manuals that accompany these devices and we 
encourage you to take full advantage of their capabilities. 



PEEK Values H 

When you want your program to see (PEEK) if a key on the keyboard is 
being pressed, use these codes in your program. 


1 

56 

O 

38 

2 

59 

P 

41 

3 

8 

Q 

62 

4 

11 

R 

17 

5 

16 

S 

13 

6 

19 

T 

22 

7 

24 

U 

30 

8 

27 

V 

31 

9 

32 

w 

9 

0 

35 

X 

23 

+ 

40 

Y 

25 

_ 

43 

z 

12 

£ 

48 

* 

49 

CLR/HOME 

51 

I 

54 

INST/DEL 

0 

[: 

45 

A 

10 

]: 

50 

B 

28 

= 

53 

C 

20 

<, 

47 

D 

18 

>. 

44 

E 

14 

?/ 

55 

F 

21 

RETURN 

1 

G 

26 

CRSRt 

7 

H 

29 

CRSR- 

2 

1 

33 

FI 

4 

J 

34 

F3 

5 

K 

37 

F5 

6 

L 

42 

F7 

3 

M 

36 

— 

57 

N 

39 

No key pressed 

64 
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A 

ABS(X), 23 
Accessories, 11-12 

Animate, how does the computer?, 76 
Animation, 39 
subroutines, 75-88 
Bouncing Ball, 81 -82 
Duck Hunting With Bow and Arrow, 
84-86 

Mars Landing, 86-88 
Moving Jack, 80-81 
Space Commander, 83-84 
Speeding Up jack, 82-83 
using 

POKE, 80-88 
strings in, 79 

the PRINT command, 76-78 
Arcade 
games 

Asteroid Shower, 134-136 
Pothole Derby, 132-134 
Rat Trap, 136-138 
Saucer Blaster, 130-132 
type sounds, 54-56 
Arguments, 23, 25, 26 
Arithmetic Tester game, 102-104 
ASCII 

and CHR$ codes, 147-148 
code number, 24 
ASC(X$), 24 
ATN(X), 24 

B 

Bar charts or graphs, 67-68 
BASIC, 15, 17-28 
COMMODORE, 18 
how do you write programs in?, 11 
Interpreter, 11 

Best way to start learning how to use the 
Commodore 64, 12 

Bit, 10 

Binary system, 10, 11 
Borders and screens, 31-33 
Bouncing Ball subroutine, 81-82 
Bow and Arrow, Duck Hunting With, 
84-86 

Branching statement, 20, 21 
Building blocks of Commodore BASIC, 15, 
17-28 
Bytes, 10, 24 


C 

Calculations, simple, 90-92 
Calculating subroutines, 89-100 
Current Ratio, 97, 99 
Dollars and Deutschmarks, 94-95 
Gallons and Liters, 92-93 
Inches and Centimeters, 94, 98 
Investing, 96-97 
Kilometers and Miles, 93-99 
Loan Analysis, 98 

Pounds, Ounces, and Kilograms, 93-94 
Profit, 97, 100 
Temperature, 93, 99 
Cassette tape, 23 
Central Processing Unit, 10 
Character codes, 67 
CHR$ codes, 147-148 
CHR$(X), 24 
CLOSE, 18 
CLR, 18 
CMD, 18 
Code(s) 

ASCII and CHR$, 147-148 
binary, 10 
character, 67 
Color, 22, 29-39 

and sound together, putting, 56-57 
choice, 35-37 
code memory maps, 144 
in PRINT statements, 33-34 
keys, 30 
using the, 13 
random, 38 
subroutines, 29-39 
values, 32 
variable, 22 

Coloring, keyboard, 30-31 
Commands and statements, 11, 18-23, 28 
Commodore 
BASIC, 18 
64 

color, 29-39 
Organ, 50-52 
pictures with the, 68-74 
playing chords on, 49-50 
song book, 52-53 
CONT, 18 

Conversions, facts, figures, and, 89-100 
COS(X), 24 
CPU 10 
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Creating graphics 
using POKE, 61-66 
with the PRINT command, 60-61 
Current Ratio subroutine, 97, 99 
Cursor keys, using the, 13 

D 

Data files, sound subroutines using, 
53-54 

DATA statements, 19, 22 

Datassette recorder, using the, 151 

DEF FN, 19 

Dice program, 72-73 

DIM, 19 

Direct mode, using the, 14-15 
Disk drive 
Commodore, 12 
using the, 152 
Diskette, 11, 12 

Dollars and Deutschmarks subroutine, 
94-95 

Duck Hunting With Bow and Arrow 
subroutine, 84-86 

E 

Editing on the Commodore 64, 13-14 
Educational games 

Arithmetic Tester, 102-104 
Multiplication Tables, 104-106 
Painter's Palette, 111-113 
Rhyming Recognition, 107-108 
Riddle Fractions, 108-111 
Shape Recognition, 106-107 
States and Capitals, 113-116 
Encyclopedia, sound, 45-46 
END, 19 

Error messages, common, 149-150 
EXP(X), 24 

F 

Facts, figures, and conversions, 89-100 
Floppy disk, 23 
FOR/TO/STEP, 19 

Frequency values of musical notes, 48 
FRE(X), 24 

Function(s), 23-26, 28 

G 

Gallons and Liters subroutine, 92-93 
Games 

arcade, 129-138 


Games—cont. 
educational, 101-117 
traditional, 119-128 
GET statement, 19, 37, 38 
G Major scale, 49 
GOSUB, 19-20 
GOTO, 20 
Graph(s) 

or barcharts, 67-68 

paper memory maps, sample, 145-146 
Graphics, 22, 39 
characters, using the, 12-13 
subroutine(s), 59-74 
Dice, 72 
House, 71 

Maze Maker, 73-74 
Person, 70 
Pine Tree, 69 
Score Box, 65 
Screen Border, 64-65 
Spacecraft, 71 -72 
Three Dimensions, 73 
Tic-Tac-Toe, 121-123 
Tic-Tac-Toe board, 66 
using POKE, creating, 61 -66 
with the PRINT command, creating, 
60-61 

H 

House subroutine, 71 

How does the computer animate?, 76 

How do you write programs in BASIC?, 11 

IF THEN, 20 

Inches and Centimeters subroutine, 94 
INPUT statement, 19, 20, 37, 38 
Inputting 

procedures and hints, 26-28 
rules and suggestions, 27 
Integer variables, 27, 28 
Interpreter, BASIC, 11 
INT(X), 24-25 

Investing subroutine, 96-97 

I 

Jumping Jack subroutine, 76-78 

K 

Keyboard, 12 
coloring, 30-31 



Kilometers and Miles subroutine, 93 


O 


L 

Learning how to use the Commodore 64, 
12 

LEFT$(X$,X), 25 
LEN(X$), 25 
LET statement, 20 
LIST, 20-21 

LOAD command, 14, 21 
Loading programs, 151-152 
Loan Analysis subroutine, 98 
LOG function, 24 
LOG(X), 25 

M 

Map(s) 

color code memory, 63 
screen, 62-63 
character memory, 63 
Mars Landing subroutine, 86-88 
Maze Maker subroutine, 73-74 
Memory, 10-11, 24 
maps, 63 
color code, 144 
graph paper, 145-146 
screen character, 143 
random-access, 10-11 
read-only, 10-11 
storage, 11,21,23 
Microprocessor, 6510, 10 
MID$ <$,S,X), 25 
Moving Jack subroutine, 80-81 
Multiplication Tables game, 104-106 
Music 

lesson subroutines, 47-49 
subroutine, 41 -57 
Musical notes, 140 
frequency value of, 48 

N 

NEW, 21 

NEXT statement, 19, 21 
Noise Maker subroutine, 45 
Numeric 
functions, 23 
values for a string, 26 
variable, 27, 28 


Octaves, 140 
ON GOSUB, 21 
ON GOTO, 21 
OPEN, 21 

Organ, Commodore 64, 50-52 

P 

Painter's Palette game, 111-113 
Painting the screen, 31 
Parking Lot subroutine, 90-92 
PEEK values, 153 
PEEK(X), 25 
Person subroutine, 70 
Pictures with the Commodore 64, 68-74 
Pine Tree subroutine, 69 
Playing chords on the Commodore 64, 
49-50 

POKE, 22, 69-72, 141-142 
animation using, 80-88 
creating graphics using, 61 -66 
POKEing, 31-32 
more than one voice, 46-47 
sound,42-44 
POS(X), 25 

Pounds, Ounces, and Kilograms 
subroutine, 93-94 
PRINT, 22 
command 

animation using the, 76-78 
creating graphics with the, 60-61 
statement(s), 26 
color in, 33-34 
Profit subroutine, 97, 100 
Putting sound and color together, 56-57 

R 

RAM, 10-11, 12 
Random 

access memory, 10-11 
see also RAM 
color, 38 
function, 26 
number, 26 
READ, 22 

Read-only memory, 10-11 
see also, ROM 
REM, 22 
RESTORE, 22 
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RETURN statement, 19, 21, 22 
Reverse mode, 13 

Rhyming Recognition game, 107-108 

Riddle Fractions game, 108-111 

RIGHT$(X$,@), 26 

RND(X), 26 

ROM, 10-11, 12 

RUN, 22 

S 

SAVE command, 23 

Saving and loading programs, 151-152 

Scale, G Major, 49 

Score Box subroutine, 65 

Screen(s) 

and borders, 31 -33 
border, 64-65 
Border subroutine, 64-65 
character memory maps, 143 
maps, 62-63 
painting the, 31 
values, 141 -142 
SGN(X), 26 

Shape Recognition game, 106-107 
Simple calculations, 90-92 
SIN(X), 26 

6510 microprocessor, 10 
Song book. Commodore, 52-53 
Sound(s), 22, 39 

and color together, putting, 56-57 
arcade-type, 54-56 
encyclopedia, 45-46 
POKEing, 42-44 
subroutines, 41 -57 
using data files, 53-54 
variables, 45 

Space Commander subroutine, 83-84 
Spacecraft program, 71-72 
SPC(X), 26 

Speeding Up Jack subroutine, 82-83 
SQR(X), 26 

Statements and commands, 18-23, 28 
States and Capitals game, 113-116 
STEP command, 19 
STOP, 23 
STR$(X), 26 
String(s) 
functions, 23 
variable, 21, 24, 27-28 
String variable, 23, 24 


String variable—cont. 

in animation, using, 79 
Subroutines 
animation, 75-88 
calculating, 89-100 
color, 35 
graphics, 59-74 
music, 41 -57 
lesson, 47-49 
Noise Maker, 45 
sound,41-57 

using data files, sound, 53-54 

T 

TAB function, 26 
TAB(X), 26 
TAN(X), 26 
Tape, 11, 12 

Temperature subroutine, 94 
Three Dimensions subroutine, 73 
Tic-Tac-Toe board, 66 
Traditional games 
Guessing Game, 120-121 
Hangman, 126-128 
Ted and Dave's Casino, 123-126 
Tic-Tac-Toe, 121-123 

U 

Using 

strings in animation, 79 
the color keys, 13 
the Commodore 
direct mode, 14-15 
graphics characters, 12 
the cursor keys, 13 
the Datassette recorder, 151 
the disk drive, 152 
the reverse function, 13 

V 

VAL(X$), 26 
Variable(s), 19, 27-28 
color, 22 
loudness, 22 
sound, 45 
string, 23, 24 
VERIFY, 23 

W 

Writing programs in BASIC, 11 
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The Tool Kit Series 
Commodore 64 Edition 

To become computer literate and to keep your Commodore 64 computer purring along properly, 
you must have the cotrect tools. The "tools" in this book are short 5- to 15- line subroutines that 
combine color, sound, and graphics to form a variety of educational programs and computer 
games. 

• Forget the structured method of learning programming. Forget commands, statements, and 
data structures. 

• Forget those frustrating evenings with your User's Manual. 

• Learn to look at programs in terms of their working parts—their subroutines—and learn how to 
write simple programs. 

• Learn how to use color, sound and music, graphics, animation, and computational subroutines 
as "tools" to build programs. 

• Discover the modular form of programming. Learn what each subroutine will do, how it can be 
changed, and what the variables control. 

Don't spend long frustrating hours porina over programming books and manuals. Follow the 
"Tool Kit" approach to programming ana learn to design your own games and quizzes. Keep 
your Commodore 64 computer humming happily. 


Howard W. Sams & Co., Inc. 

4300 West 62nd Street, Indianapolis, Indiana 46268 USA 


$9.95/22314 


ISBN: 0-672-22314-7 




